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Preface  on  Notation 


The  symbol  I  is  used  to  represent  several  different  types  of  quantities  in  this 
paper.  The  manner  in  which  is  written  clarifies  its  use: 

When  talking  about  quantum  mechanics,  I  is  used  as  the  nuclear  spin  quantum 
number,  i^,  I+,  and  1  are  all  operators  associated  with  this  qunatum  number.  This 
definition  of  I  is  used  exclusively  in  Section  2.1. 

Section  2.2  introduces  T,  I,  and  I2  as  individual  iodine  atoms  or  molecules.  I* 
represents  the  excited  state  iodine  atom,  while  I  represents  the  ground  state  atom.  Ij  is 
molecular  iodine. 

Brackets  Q  are  used  to  signify  number  density  of  a  species.  For  example,  [IJ  is 
used  to  describe  number  density  of  molecular  iodine.  To  specify  number  density  of 
atomic  iodine  within  a  particular  hyperfine  state,  the  notation  is:  [1*3]  for  the  excited  F=3 
hyperfine  state  or  [I%]  for  the  F=4  hyperfine  ground  state.  To  describe  the  more  general 
case  of  population  in  an  upper  or  lower  energy  level  [NJ  or  [NJ  are  used  respectively. 
The  general  case  of  excited  state  or  ground  state  iodine  population  densities  are  [I*]  or 
[F]  respectively. 

Intensity  is  another  case  where  I  is  used.  Intensity  traveling  right  within  a  laser 
cavity,  or  in  the  positive  z  direction  is  specified  by  I"^.  Intensity  traveling  left  within  a 
laser  cavity,  or  in  the  negative  z  (positive  s)  direction  is  specified  by  T.  Two  way 
circulating  intesity  and  intensity  outside  a  resonator  is  written  with  a  bar  over  it.  The 
general  case  of  intensity  caused  by  atoms  transitioning  from  some  upper  energy  level  to 
a  lower  level  is  given  by  Iu.l-  The  more  specific  case  of  a  transition  from  the  F=3 
exited  hyperfine  state  to  the  F=4  hyperfine  ground  state  is  written  similarly:  134.  The 
hyphen  between  the  states  is  dropped  for  brevity. 

Hyperfine  relaxation  occurs  only  between  the  exited  states  or  between  the  ground 
states.  In  general  terms  the  rate  constants  are  written  Iq,  for  the  upper  states  and  kj,  for 
the  lower  states.  In  more  specific  terms  the  rate  constants  are  written  k^j  for  the  excited 
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states  and  ki.j  for  the  ground  states.  The  rate  constant  between  the  upper  F=3  and  F=2 
hyperfine  states  is  written  k*32.  The  rate  constant  between  the  lower  F=4  and  F=1 
hyperfme  states  is  written  k^j. 

A-coefficients  for  particular  transitions  are  written  A34.  The  more  general  form  is 
Au.l-  This  is  not  to  be  confused  with  the  emperical  constants  A^  l-  Ay  and  Al  are  only 
seen  in  Section  2.2. 
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1.  Introduction 


The  laser  system  being  studied  uses  a  KrF  excimer  at  248  nm  to  photodissociate 
CF3I.  The  excimer  laser  transversely  pumps  a  well  defined  volume  of  CF3I  producing 
CF3  radicals  and  excited  iodine  atoms.  Nearly  100%  of  the  iodine  produced  is  initially 
found  in  one  of  the  two  excited  levels  of  the  hyperfine  structure  [1].  The  hyperfine 
structure  of  atomic  iodine  results  from  the  splitting  of  the  fine  structure  components  due 
to  interactions  between  the  nucleus  and  the  angular  momentum  of  the  electrons  [2].  This 
splitting  leads  to  six  hyperfine  energy  states,  two  upper  (^Pi/2)  and  four  lower 
Absorption  and  emission  which  occurs  between  the  upper  and  lower  hyperfine  levels  is 
caused  by  a  magnetic  dipole  interaction.  The  selection  rule  specifying  which  magnetic 
dipole  transitions  may  occur  is  AF  =  0,±  1  [3].  This  gives  six  transitions:  3-4,  3-3,  3-2, 
2-3,  2-2,  and  2-1.  The  relative  strengths  of  these  six  transitions  and  the  frequencies  at 
which  they  occur  can  be  determined  by  a  detailed  quantum  mechanical  calculation 
involving  both  the  nuclear  magnetic  dipole  moment  and  the  electric  quadrupole  moment. 
A  fairly  detailed  description  of  this  quantum  mechanical  vector  model  is  outlined  in 
Section  2.1.  The  strongest  of  these  transitions  is  the  3-4,  which  is  the  predominant  line 
in  most  atomic  iodine  lasers  and  produces  infrared  light  at  1.315  fim. 

There  are  numerous  processes,  some  radiative  and  some  nonradiative  which  shift 
population  around  between  the  hyperfine  energy  states  [4].  The  radiative  processes,  or 
magnetic  dipole  processes  as  mentioned  above,  include  stimulated  emission  and 
absorption  and  spontaneous  emission.  Nonradiative  processes  include  relaxation  or 
mixing  between  hyperfine  energy  levels  and  quenching  of  exited  iodine  by  constituents 
in  the  gas  mixture.  Other  important  processes  include  photodissociation  and 
recombination.  All  of  the  processes  listed  above  are  combined  into  a  set  of  nine  rate 
equations  to  describe  population  in  each  of  the  hyperfine  energy  states.  A  set  of  six 
intensity  rate  equations  which  describe  two  way  circulating  flux  within  the  laser  cavity 
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are  coupled  to  the  population  rate  equations  to  form  a  sixteen  equation  model  which 
describes  the  laser  action  in  an  excimer  pumped  CF3I  photodissociation  laser.  A  detailed 
description  of  this  rate  equation  model  is  developed  in  the  second  part  of  Chapter  2. 

Chapter  3  of  the  thesis  introduces  the  set  of  experiments  performed  on  the  iodine 
photodissociation  laser.  One  set  of  experimental  measurements  involves  obtaining  gain 
using  a  diode  probe  laser  which  can  be  tuned  to  any  of  the  six  radiative  transitions  in  the 
hyperfme  structure.  The  CF3I  laser  resonator  mirrors  are  removed  and  transient  gain 
plus  loss  along  a  given  hyperfme  transition  as  the  excimer  photodissociates  the  CF3I  is 
found  by  measuring  amplification  of  the  diode  laser  as  it  passes  through  the  cell  of  CF3I. 
The  gain  along  the  3-4  transition  is  checked  by  another  experiment  which  involves  a 
study  of  the  energy  extracted  from  the  CF3I  laser.  This  study  is  accomplished  by  varying 
the  outcoupling  mirror  reflectivity  and  measuring  the  amount  of  energy  extracted  from 
the  laser.  By  determining  the  highest  outcoupler  transmission  which  still  allowed  lasing 
to  occur  and  applying  the  threshold  gain  condition,  the  small  signal  gain  plus  the  loss  is 
determined.  Under  the  assumption  that  the  losses  in  the  system  are  small,  both  gain 
measurements  are  compared  to  a  theoretical  maximum  value  found  by  knowing  the 
amount  of  excimer  energy  deposited  in  the  CF3I.  Knowing  the  amount  of  energy 
deposited  in  the  gas,  and  that  the  photon  yield  is  100%,  the  total  number  of  T  produced 
is  found,  and  from  this  a  maximum  small  signal  gain  is  calculated  for  the  3-4  hyperfme 
transition. 

Chapter  4  uses  basic  laser  principles  and  the  detailed  rate  equation  model  to 
analyze  experimental  data.  A  set  of  three  comparisons  are  made.  First  is  a  detailed 
analysis  of  the  gain  comparison  made  above.  Second  is  a  qualitative  comparison  between 
laser  intensity  measurements  and  the  rate  equation  model,  and  finally  an  error  analysis 
is  made  and  modification  of  the  rate  equation  model  to  describe  the  laser  is  discussed. 
Conclusions  about  these  comparisons  are  drawn  in  Chapter  5. 
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2.  Theory 


2.1  Energy  Structure  of  Atomic  Iodine 

Modeling  of  the  1.315  nm  atomic  iodine  laser  system  requires  a  knowledge  of  the 
hyperfine  energy  level  structure  of  atomic  iodine.  This  structure  can  be  described  with 
a  quantum  mechanical  vector  model  in  which  the  electronic  angular  momentum  of  the 
system  is  coupled  to  the  nuclear  angular  momentum.  The  electronic  state  of  the  iodine 
atom  is  defined  by  the  electron  configuration  of  the  valence  shell.  Iodine  as  it 
occurs  in  nature,  has  53  protons  and  74  neutrons  [5].  The  ground  state  electron 
configuration  follows  from  that  of  krypton  (Kr):  (Kr)  5s^4d‘°5p®.  The  5s  and  4d 
subshells  are  completely  filled  and  the  5p  subshell  is  short  of  being  filled  by  one 
electron.  By  performing  a  vector  sum  of  the  wave  functions  of  the  individual  electrons 
in  the  valence  shell,  the  electronic  state  of  the  system  is  determined.  The  Russell- 
Saunder’s  coupling  assumption  determines  the  order  in  which  the  basis  vectors  are 
summed;  The  vectors  that  are  strongly  coupled  with  one  another  must  always  be  added 
together  first  [6].  The  total  electronic  angular  momentum  of  an  atom  is  determined  by 
first  summing  the  individual  orbital  angular  momenta  of  the  electrons  in  unfilled 
subshells.  The  individual  orbital  angular  momenta  of  the  5  electrons  in  the  p  shell  sum 
to  give  the  atom  a  total  orbital  angular  momentum  quantum  number  of  L  =  1.  Next, 
the  total  spin  angular  momentum  is  determined  by  first  summing  the  electron  spins  in  the 
p  shell.  Due  to  the  single  unpaired  electron,  the  total  spin  angular  momentum  quantum 
number  of  the  iodine  atom  is  S  =  1/2.  Using  Dirac  notation,  the  eigenvectors  for  the 
electronic  orbital  angular  momentum  and  the  spin  angular  momentum  can  be  written  as 
I  L  Ml  )  and  |  S  Mg  )  respectively,  where  Ml  and  Mg  are  the  magnetic  quantum 
numbers  associated  with  L  and  S  which  take  on  the  values:  Ml  =  L,  L-1,  ...,  -L  and 
Mg  =  S,  S-1,  ...,  -S.  This  gives  the  eigenvectors  listed  in  Table  2-1. 
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The  resultant  quantum  numbers,  L  and  S,  according  to  Russell-Saunder’s 
coupling,  are  less  strongly  coupled  with  one  another,  and  their  vector  sum  leads  to  a  total 
electronic  angular  momentum  quantum  number  J.  The  vector  summation  scheme  is  often 
times  referred  to  as  LS-coupling  [7].  By  LS-coupling,  the  total  electronic  angular 
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111)  11/21/2) 

1  1  0)  1  1/2 -1/2) 

I  1-1) 


Table  2-1  Eigenvectors  for  the  electronic  orbital  angular  momentum  and  spin  angular 
momentum 


momentum  has  the  possible  values  J  =  {  I  L+S  I  ,  |  L-l-S-1  |  ,  |  L-S  |  }.  For 

LS-coupling,  the  general  expression  for  a  term  describing  the  fine  structure  energy  states 
is  denoted  by  Thus  iodine  has  two  energy  levels  in  the  fine  structure:  ^P,/2  and 

From  Hund’s  second  rule  [8]  (more  than  half  full,  invert  order)  the  J  =  1/2  is  the 
higher  energy  state,  and  the  J  =  3/2  is  the  lower  energy  state.  Additionally,  the 
magnetic  quantum  number  for  the  total  angular  momentum  can  be  defined  by  M,  =  J, 
J-1,  ...,  -J.  Using  Dirac  notation,  the  resulting  basis  vectors  are  labeled  |  J  Mj  >  .  The 
electronic  state  of  the  system  can  be  summarized  in  Figure  2-1. 

The  complete  Hamiltonian  (or  energy  operator)  for  the  system  may  be  written  as: 

ft  =  Ao  +  ftso  (2.1-1) 

A  ^ 

where  Hq  is  the  initial  energy  operator  and  is  the  perturbation  due  to  the  spin-orbit 
interaction.  If  we  define  a  spin-orbit  interaction  constant  we  can  write  the  spin-orbit 
interaction  Hamiltonian  as: 


ft„  =  $t.§ 


(2.1-2) 
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H„  is  also  referred  to  as  the  fine  structure  Hamiltonian  [9].  The  next  step  is  to  find  the 
energy  states  which  result  from  this  splitting. 

The  procedure  for  determining  the  energies  of  the  states  in  the  fine  structure  is 
standard.  The  first  step  is  to  expand  the  Hamiltonian  H  in  the  Ml,  Mg  basis.  The  result 
is  a  6  X  6  matrix  with  elements  <  Ml  Mg  |  H«,  |  Ml  Mg  >  .  In  order  to  operate  easily 


J-  3/2 


Figure  2-1  Fine  Structure  Splitting 


I  JM.) 

I  1/2  1/2  > 
I  1/2 -1/2  > 


I  3/2  3/2  > 
I  3/2  1/2  > 
I  3/2 -1/2  > 
1  3/2 -3/2  > 


on  the  basis  vectors,  the  Hamiltonian  operator  H,„  is  expanded  using  a  standard  algebraic 
technique  into  operators  which  follow  a  set  of  general  rules.  First  we  know: 

(2.1-3) 


If  we  define: 


=  Kx  +  i  and  K.  =  Kx  -  i 


(2.1-4) 
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where  K  is  an  operator  such  as  L  or  S,  and  make  the  substitution  into  Equation  2.5  we 
get  the  expression: 

t-§  =  tzSz  +  (l/2)(t+§.  +  (2.1-5) 

Lz,Sz,L+>S+,L.  and  S.  are  all  operators  which  follow  the  general  rules: 

I  KMk>  =tlMK  I  KMk>  (2.1.(!) 

I  KMk>  =li[K(K+l)-MK(MK±l)r  I  KMk±1>  (2.1-7) 

Kz  is  an  operator  which  returns  an  eigenvalue  of  the  wave  function  which  it  is  operating 

A  •  *  A 

on.  K+  steps  up  a  state  when  it  operates  on  a  basis  vector  and  K.  steps  down  a  state. 

A  A 

K+  and  K.  are  often  referred  to  as  step  operators  or  ladder  operators.  Another  useful 
property  used  in  analyzing  quantum  mechanical  angular  momentum  is: 

I  KMk>  =h2K(K+l)  I  KMk>  (2.1-8) 

Using  these  properties,  the  matrix  elements  <  Ml  Mg  |  Hjo  |  Ml  Mg  )  are 
determined. 

Arranging  the  basis  vectors  |  Ml  Mg  >  in  the  following  order, 


1. 

1  .1  1/2  > 

4. 

1  -1  l/2> 

2. 

i  0  1/2  > 

5. 

1  0  -1/2  > 

3. 

1  l-l/2> 

6. 

1  -l-l/2> 

Table  2-2  Basis  Vectors  for  the  Fine  Structure 


we  find  our  matrix  <  Ml  Mg  |  H,^  |  Ml  Mg  >  to  be: 
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1/2  0  0  0  0  0 

0  0  yjlil  0  0  0 

0  ,/i72  -1/2  0  0  0 

0  0  0  -1/2  ^  0 

0  0  0  yfui  0  0 

0  0  0  0  0  1/2 


The  next  step  is  to  solve  for  the  eigenvalues  of  the  matrix  by  diagonalizing  it.  This 
would  be  difficult  to  do  for  a  6  x  6  matrix,  except  that  the  matrix  is  already  in  a  block 
diagonalized  for.  The  largest  block  matrix  that  needs  to  be  solved  is  a  2  x  2.  The 
block  diagonalization  of  this  perturbation  matrix  is  a  result  of  the  ladder  operators 
defining  the  allowable  states  which  can  be  reached  as  a  result  of  the  spin  orbit 
interaction.  This  is  an  important  result  which  later  makes  it  easy  for  us  to  solve  for  the 
allowable  states  of  the  hyperfine  structure  caused  by  the  nuclear  interaction.  The  block 
diagonalization  makes  it  trivial  to  solve  for  the  eigenvalues  and  eigenfunctions  of  the 
matrix.  Solving  for  the  eigenvalues,  we  realize  the  L*S  perturbation  does  not  entirely 
remove  the  degeneracy  of  the  original  eigenstates.  One  level  is  two  fold  degenerate  and 
the  other  is  four  fold  degenerate.  This  is  in  agreement  with  the  quantum  mechanical  rule 
for  degeneracy:  2J+1.  For  the  upper  ^P,/2  level  the  eigenvalue  of  Xj  =  -1  has  a 
degeneracy  of  2,  and  for  the  lower  level  the  eigenvalue  of  X2  =  1/2  has  a 
degeneracy  of  4.  Using  these  two  eigenvalues  and  the  spin-orbit  interaction  constant  |o, 
we  define  an  energy  splitting  AE  between  the  ^P,/2  and  ^Pj/j  levels: 

AE  =  I  (X,  -  Xjllo  I  (2.1-10) 

This  leads  to: 

Uo  I  =  (2/3)  To  (2.1-11) 

Where  Tq  =  7602.9768  cm'*  is  the  experimentally  determined  value  of  the  total  energy 
splitting  of  the  spin-orbit  interaction  [10]. 
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The  nuclear  state  of  the  system  is  examined  next.  The  iodine  nucleus  has  a  spin 
quantum  number  of  I  =  5/2.  The  magnetic  quantum  number  for  the  nuclear  spin  can 
be  defined  by  M,  =  I,  I-l,  ...,  -I.  The  eigenvectors  are  labeled  |  I  Mj  )  ,  and  the 
nuclear  state  of  the  system  is  summarized  in  Table  2-3. 

The  hyperfine  structure  is  defined  by  further  splitting  of  the  fine  structure  due  to 
interactions  between  the  nucleus  and  the  total  angular  momentum  of  the  electrons.  The 
LS-coupling  scheme  can  be  extended  to  perform  the  vector  addition  of  the  spin  angular 
momentum  of  the  nucleus  and  the  total  angular  momentum  of  the  electrons.  A  new  total 


I  IMi> 

I  5/2  5/2  > 
1  5/2  3/2  > 
j  5/2  1/2  > 
1  5/2  -1/2  > 
1  5/2  -3/2  > 
}  5/2  -5/2  > 


Table  2-3  Eigenvectors  for  the  Nuclear  State  of  the  System 


angular  momentum  quantum  number  F  is  defined  which  takes  the  values:  F  = 
{  I  J+I  I  ,  I  J-HI-l  I  ,...,  I  I-J  I  }.  The  upper  state  ^P,/2  branches  into  two  levels  F  = 
3,2  and  the  lower  state  branches  into  4  levels  F  =  4,3,2, 1.  The  total  vector  space 
is  defined  by  |  J  M, )  |  I  Mj )  .  |  J  Mj )  |  I  Mj )  is  rewritten  as  |  E,  F  Mp )  , 
where  E  indicates  the  ^P,^  or  level.  For  the  upper  ^P,^  level,  |  E,  F  Mp  >  is  seen 

in  Figure  2-2.  For  the  lower  level  |  E,  F  Mp  >  is  seen  in  Figure  2-3. 

The  Hamiltonian  for  the  hyperfine  structure  can  be  written  as  a  combination 
of  an  electric  quadrupole  interaction  and  a  magnetic  dipole  interaction: 

Hbf  =  H„d  +  (2.1-12) 
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FMp) 


Figure  2-2  Upper  Level  Hyperfme  Splitting 


3  3> 
3  2> 
3  1> 
3  0> 
3-l> 
3  -2> 
3  -3> 


2  2> 
2  1> 
2  0> 
2-l> 
2  -2> 


The  entire  Hamiltonian  for  the  iodine  atom  may  now  be  written  as: 


fi  =  ft.  + 


(2.1-13) 


Because  the  relative  strengths  of  Hq,  H,„,  and  H^f  are  fixed:  Eo)  it  is  possible 

to  treat  H^f  as  a  perturbation  relative  to  Hq,  H^.  From  this  point  on,  to  distinguish 
between  levels,  the  hyperfme  Hamiltonian  operator  H^f  will  be  written  Hu.l-  The 
subscript  U  denotes  the  upper  level  and  the  subscript  L  denotes  the  lower  level. 

The  procedure  for  determining  the  energies  of  the  states  in  the  hyperfme  structure 
is  similar  to  the  procedure  used  to  determine  the  fine  structure.  The  first  step  is  to 
expand  the  Hamiltonian  Hu  l  in  the  M„  Mj  basis.  This  creates  two  matrices  with 
elements  <  Mj  Mj  |  Hu,l  |  Mj  Mj  >  .  The  matrix  for  the  upper  level  is  a  12  X 
12  and  the  matrix  for  the  lower  is  a  24  X  24.  The  Hamiltonian  operator  has  been 
determined  to  be  [11]: 
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Figure  2-3  Lower  Level  Hyperfine  Splitting 


(2.1-14) 
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The  strength  of  the  magnetic  dipole  portion  is  governed  by  the  empirical 
constants  Au  l.  The  accepted  experimental  values  are  [12]: 

Au  =  0.21973  cm-‘  Al  =  0.02759  cm*^ 

The  strength  of  the  electric  quadrupole  portion  Hj,  is  governed  by  the  empirical  constants 

®U,L- 

Bu  =  0  cm  *  Bl  =  0.03812  cm  * 

As  seen  before,  I  =  5/2  is  the  magnetic  quantum  number  for  the  nuclear  spin  and  J  = 
1/2,  3/2  is  the  total  electronic  angular  momentum  quantum  number,  i^,  i+,  J+,  1, 

A 

and  J.  are  all  operators  which  follow  the  general  rules  for  quantum  mechanical  angular 
momentum  as  outlined  previously  in  the  discussion  of  the  fine  structure. 

Generating  the  matrices  for  the  upper  and  lower  levels  is  simply  a  matter  of  book 
keeping  similar  to  that  of  the  spin-orbit  case,  and  can  easily  be  performed  on  a  computer. 
The  next  step,  finding  the  energy  eigenvalues,  is  accomplished  by  diagonalizing  the 
matrices.  This  is  no  trivial  task  for  a  12  x  12  matrix,  not  to  mention  a  24  x  24  matrix. 
The  problem  is  simplified;  however,  due  to  the  nature  of  the  ladder  operators  involved. 
As  seen  previously  in  the  fine  structure  case,  the  vector  space  is  set  up  such  that  it  is 


I  M,M,>  =  +  Mj 


1. 

1  1/2 

5/2  > 

3 

7. 

1  1/2 

-1/2  > 

0 

2. 

1  -1/2 

5/2  > 

2 

8. 

1  -1/2 

-1/2  > 

-1 

3. 

1  1/2 

3/2  > 

2 

9. 

j  1/2 

-3/2  > 

-1 

4. 

1  -1/2 

3/2  > 

1 

10. 

1  -1/2 

-3/2  > 

-2 

5. 

1  1/2 

1/2  > 

1 

11. 

1  1/2 

-5/2  > 

-2 

6. 

!  -1/2 

1/2  > 

0 

12. 

1  -1/2 

-5/2  > 

-3 

Table  2-4  Basis  Vectors  for  the  Upper  Level 
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1. 

1  3/2 

5/2  > 

4 

2. 

1  1/2 

5/2  > 

3 

3. 

1  3/2 

3/2  > 

3 

4. 

1  -1/2 

5/2  > 

2 

5. 

1  1/2 

5/2  > 

2 

6. 

1  3/2 

1/2  > 

2 

7. 

1  -3/2 

5/2  > 

1 

8. 
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9. 

1  1/2 

1/2  > 

1 

10. 

1  3/2 

-1/2  > 

1 

11. 

1  -3/2 

3/2  > 

0 

12. 

1  -1/2 

1/2  > 

0 

13. 

1  1/2 

-1/2  > 

0 

14. 

1  3/2 

-3/2  > 

0 

15. 

1  -3/2 

1/2  > 

-1 

16. 

1  -1/2 

-1/2  > 

-1 

17. 

1  1/2 

-3/2  > 

-1 

18. 

1  3/2 

-5/2  > 

-1 

19. 

1  -3/2 

-1/2  > 

-2 

20. 

1  -1/2 

-3/2  > 

-2 

21. 

1  1/2 

-5/2  > 

-2 

22. 

1  -3/2 

-3/2  > 

-3 

23. 

1  -1/2 

-5/2  > 

-3 

24. 

1  -3/2 

-5/2  > 

-4 

Table  2-5  Basis  Vectors  for  the  Lower  ^3^2  Level 


For  the  upper  level: 
F  Degeneracy 


3 

2 


7 

5 


Energy  Eigenvalue 

5/4  Au  =  .2746  cm’' 
-7/4  Au  =  -.3845  cm'* 


For  the  lower  level: 
F  Degeneracy 


4 

3 

2 

1 


9 

7 

5 

3 


Energy  Eigenvalue 


15/4  Al  +  1/4  Bl  =  .1130  cm'* 

-,02786  cm* 
-.09348  cm  * 
-.1182  cm-* 


-1/4  Al- 11/20  Bl  = 
-13/4  Al-  1/10  Bl  = 
-21/4  Al  +  7/10  Bl  = 


Table  2-6  Eigenvalues  of  the  Perturbation  Matrix 
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already  block  diagonalized.  The  ladder  operators  determine  which  states  within  the  basis 
can  be  reached.  For  the  upper  level,  the  largest  block  matrix  is  a  2  x  2  and  for  the 
lower  ^P3/2  the  largest  block  matrix  is  a  4  x  4.  Thus  the  problem  can  be  solved 
numerically  quite  easily.  A  computer  program  is  used  to  perform  the  numerics  involved 
in  building  the  block  diagonalized  perturbation  matrix  and  solving  for  the  energy 
eigenstates.  The  basis  states  for  the  upper  ^P,/2  level  are  set  up  in  the  computer  as  shown 
in  Table  2-4.  For  the  lower  ^Pj^  level  the  basis  states  are  set  up  in  the  computer  as 
shown  in  Table  2-5.  The  matrices,  given  by  <  Mj  Mj  |  H  „  l  |  Mj  Mj  >  ,  are  too 
unwieldy  to  print,  but  it  can  be  seen  that  the  eigenvalues  follow  the  quantum  mechanical 
rule  for  degeneracy:  2F-f-l.  This  resulting  eigenvalue  calculation  is  seen  in  Table  2-6. 
This  set  of  calculations  leads  to  the  energy  level  diagram  for  atomic  iodine  seen  in  Figure 
2-4. 


Figure  2-4  Energy  Level  Diagram  for  Atomic  Iodine 
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2.2  Processes  in  the  Atomic  Iodine  Photodissociation  Laser 

Once  the  energy  eigenstates  of  the  hyperfine  Hamiltonian  are  determined, 
processes  which  distribute  population  between  the  states  can  be  discussed.  Figure  2-5 
summarizes  the  most  significant  of  the  processes  which  might  occur  in  the  gain  medium 
of  an  iodine  photodissociation  laser.  The  processes  can  be  divided  into  two  categories: 
radiative  processes  and  non-radiative  processes.  The  radiative  processes  are  those  which 
cause  light  to  be  emitted  or  absorbed.  In  atomic  iodine,  the  only  processes  which  are 
strong  enough  for  this  to  occur  are  the  magnetic  dipole  transitions.  These  processes 
include  stimulated  emission,  stimulated  absorption,  and  spontaneous  emission.  The 
remaining  processes  are  non-radiative  and  are  primarily  associated  with  collisions 
between  the  atoms  present  in  the  gas  mixture.  The  non-radiative  processes  include 
hyperfine  relaxation  and  quenching.  Other  processes  critical  to  this  sort  of  laser  are 
photodissociation,  recombination,  and  dimerization.  Hyperfine  relaxation  and  quenching 
work  through  collisions  to  distribute  population  in  a  statistical  manner  in  the  gas  mixture. 
Photodissociation,  recombination,  and  dimerization  contribute  to  the  total  population  of 
atomic  iodine  in  the  mixture.  The  radiative  processes  will  be  discussed  first,  since  they 
follow  directly  from  the  vector  model  and  are  the  most  significant  in  characterizing  laser 
action  in  an  atomic  iodine  laser.  Following  the  discussion  of  the  radiative  processes, 
non-radiative  processes  important  in  characterizing  lasing  will  be  considered.  Both 
hyperfine  relaxation  and  quenching  will  be  analyzed,  and  finally  photodissociation, 
recombination,  and  dimerization  will  be  discussed. 

The  radiative  processes  in  atomic  iodine  arise  from  magnetic  dipole  transitions 
between  energy  states  in  the  hyperfine  structure.  From  an  analysis  of  the  parity 
conditions  for  multipole  fields  [13],  the  selection  rule  for  which  magnetic  dipole 
transitions  may  occur  is  AF=0,  +  1.  This  gives  six  transitions:  3-4,  3-3,  3-2,  2-3,  2-2, 
and  2-1.  These  transitions  are  seen  in  Figure  2-6  with  an  experimentally  measured  gain 
spectrum  for  atomic  iodine  [14].  The  relative  absorptions  or  linear  small  signal  gains  of 
each  of  these  six  transitions  and  the  frequency  at  which  they  occur  are  the  two  basic 
features  which  make  up  the  emission/absoiption  spectrum  in  Figure  2-6.  The  position 
of  any  given  transition  is  determined  directly  from  the  energy  eigenvalues  of  the 
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Figure  2-6  Gain  Spectrum  of  Atomic  Iodine 


16 


/ 


Hamiltonian.  The  linear  gain  is  determined  by  the  original  states,  the  energy  eigenvalues 
of  the  Hamiltonian,  and  the  gas  temperature  and  pressure.  First  we  will  discuss  the 
transition  positions  or  frequencies  and  then  we  will  discuss  their  linear  gains. 

The  line  positions,  or  frequencies,  are  basically  the  energies  of  the  allowed 
transitions,  which  can  be  determined  directly  from  the  eigenvalues  of  the  hyperfine 
perturbation.  The  frequencies,  expressed  in  wave  numbers,  are  determined  by  [15]: 


E(Fi„  Fi)  =  To  +  E(Fu)  -  E(Fl) 


(2.2-1) 


where  U  and  L  signify  the  upper  and  lower  levels.  This  gives  us: 


Transition 

Energy  (cm*' 

3-4 

7603.1385 

3-3 

7603.2794 

3-2 

7603.3450 

2-3 

7602.6202 

2-2 

7602.6858 

2-1 

7602.7105 

Table  2-7  Energies  of  the  Allowed  Radiative  Transitions 


The  linear  gain  coefficients,  or  absorption  coefficients,  of  each  of  the  individual 
transitions  require  a  little  more  computation.  The  general  expression  for  the  linear  gain 
coefficient  for  a  given  transition  is  [16]: 


,  s.  A.U.L 

““-W  ‘  —8^ 


[N„]  -  iiL[NJ 

Sl 


(2.2-2) 


The  small  signal  gain  can  also  be  expressed  in  terms  of  a  gain  cross  section  o’u.l(u)  [17]: 
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(2.2-3) 


[N„]  -  is  [NJ 
Sl 


where 


Xu-L  A 


U-L 


St 


fvW 


(2.2-4) 


Xu-L  is  the  wavelength  of  the  transition  between  the  upper  state  U  and  the  lower  state  L, 
Au.l  is  the  Einstein  A-coefficient  of  the  transition,  [N^  J  are  the  population  densities  of 
each  state,  and  fv(u)  is  the  Voigt  lineshape  function,  gu  and  gi,  are  the  degeneracies  of 
the  upper  and  lower  levels.  The  A-coefficient  is  given  by.  [18]: 


'  -T^  I  <  £.  f  2S  |^„  >  1=  <2.2-5) 

3hXu-L 

Determining  the  A-coefficient  requires  another  calculation  involving  the  basis  vectors  and 
the  quantum  mechanical  angular  momentum  operators.  We  know  the  Bohr  magneton  is 
flu  =  0.92741  X  10'^°  erg/gauss  and  Planck’s  constant  is  h  =  6.62625  x  10'^  erg  s 
[19].  Following  the  standard  procedure  outlined  earlier,  the  operator  L  -f  2S  operates 
on  the  wavefunctions  |  )  and  then  the  integration  is  performed  to  find  the  matrix 

elements.  This  is  outlined  in  some  detail  in  Kelly’s  dissertation.  The  A-coefficients  for 
the  allowed  transitions  are  shown  in  Table  2-8.  Relative  small  signal  gains,  normalized 
to  the  3-4  transition  can  be  determined  from  just  the  A-coefficients  and  the  degeneracies 
of  the  levels.  Normalizing  the  expression  for  the  linear  gain  for  a  given  transition  to  that 
of  the  3-4  transition  leads  to: 


^  U-L  _  ■^u-L  Su 

“3-4  ^3-4  Sl 


(2.2-6) 
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Transition 


A-coefficieht 


3-4 
3-3 
3-2 
.  2-3 
'  2-2 
2-i 


5.08  s’l 
2.20 
0.63  S'* 
2.46  S'* 
3.07  s  * 
2.37  S'* 


Table  2-8  A-coefficients  of  the  Allowed  Radiative  Transitions 


This  gives  the  following  values  for  linear  gain  normalized  to  the  3-4  transition.  These 
values  are  also  proportional  to  the  strengths  of  the  transitions. 


Transition 

■-'■vj'-Gairt-  T' 

.  3-4:  ■ 

1.000 

3-3 

0.433 

.  3-2 

0.124 

2-3 

0.346 

2-2 

0.432 

2-1 

0.333 

Table  2-9  Values  for  Linear  Gain  Normalized  to  the  3-4  Transition 


The  final  thing  which  is  needed  in  order  to  construct  the  gain  spectrum  of  the 
iodine  atom  is  the  lineshape  function  {(p).  There  are  two  basic  types  of  line  broadening: 
homogeneous  and  inhomogeneous  line  broadening.  Inhomogeneous  broadening,  usually 
referred  to  as  collisional  or  pressure  broadening  consists  of  multiple  contributions  from 
the  various  gas  phase  species  present  in  the  laser  gain  medium  and  is  modeled  with  a 
Lorentzian  lineshape  function.  Homogeneous  broadening  or  Doppler  broadening  is 
caused  by  the  thermal  motion  of  the  gas  and  is  described  by  a  Gaussian  lineshape 
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function.  The  total  line  broadening  of  a  gas  laser  can  be  modeled  using  a  combination 
of  these  two  lineshape  functions  called  a  Voigt  lineshape  function.  Collisional 
broadening  will  be  discussed  first,  then  Doppler  broadening,  and  finally  the  two  will  be 
convolved  to  describe  a  Voigt  lineshape  function. 

The  general  expression  for  the  normalized  Loren tzian  lineshape  function  is  [20]: 


2 


(2.2-7) 


The  full  width  at  half  maximum  (FWHM)  of  the  lineshape  is  described  by  Avi.  This 
lineshape  function  describes  both  natural  broadening  and  collisional  broadening.  For 
natural  (or  lifetime)  broadened  transitions  the  Lorentzian  lineshape  has  a  linewidth 
described  by  [21]: 


Avj^  = 


V  "’■NR  / 


(2.2-8) 


tr  is  the  radiative  lifetime  and  t^r  is  the  contribution  due  to  inelastic  collisions  with  other 
atomic  systems.  At  room  temperature  the  natural  broadening  is  typically  two  orders  of 
magnitude  less  than  the  collisional  broadening  [22],  thus  we  will  neglect  the  contribution 
of  the  natural  lifetime  and  rely  on  the  linewidth  Aul  =  Avc  for  collision  broadened 
transitions.  The  expression  for  Avc  is: 

Avc  =  S  ttj  Pj  (2.2-9) 

i 

Where  Pj  is  the  partial  pressure  of  a  given  species  in  the  gas  mixture  and  a;  is  the 
respective  pressure  broadening  coefficient  of  that  species.  Evaluating  the  collision 
broadened  Lorentzian  function  (Equation  2.2-7)  at  line  center  yields: 
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(2.2-10) 


W  = 


2  1 
It  Avl 


The  general  expression  for  the  normalized  Gaussian  lineshape  function  is  [23]: 


foCv) 


2yin2  f-41n2(v 

Avj,  ^ 


(2.2-11) 


Where  the  FWHM  of  the  Doppler  broadened  lineshape  function  is  expressed  by  [24]: 


Avp  =  2vo 


2kTln2 

Mc^ 


(2.2-12) 


The  Doppler  broadened  Gaussian  lineshape  function  (Equation  2.2-11)  evaluated  at  line 
center  yields: 


fo(Vo)  = 


(2.2-13) 


At  low  pressures,  the  Doppler  line  broadening  effects  dominate  and  it  is  suitable  to 
model  the  linewidth  with  a  Gaussian  lineshape  function.  At  high  pressures,  collisional 
effects  take  over  and  a  Lorentzian  lineshape  function  is  more  appropriate.  For 
intermediate  pressures,  however,  both  effects  play  a  significant  role  and  their  lineshape 
functions  must  be  convolved  to  form  a  Voigt  lineshape  function. 

The  Voigt  lineshape  function  is  the  convolution  of  the  collisional  broadening  with 
the  Doppler  broadening.  This  can  be  expressed  by  the  convolution  integral  [25]: 
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(2.2-14) 


~  ®  fo  J*  ^lCv)  fo(VQ  “V)dv 


Taking  the  normalized  Gaussian  and  Lorentzian  functions  in  Equations  2.2-11  and  2.2-7, 
and  applying  the  convolution  integral,  we  get: 


(2.2-15) 


To  solve  the  integral,  the  reader  is  referred  to  Abramowitz  and  Stegun  Handbook  of 
Mathematical  Functions  [26].  The  integral  is  basically: 


exp 


dx'  = 


Rew 


Xq  -  X  +  ib 


(2.2-16) 


+  00 


Where  the  complex  error  function  w(z)  can  be  written  as  a  series  expansion  in  terms  of 
the  complex  variable  z  and  the  gamma  function  T: 


If  we  let: 


W(Z)  =  E 


(2.2-17) 


2/E2 


b  = 


2 


(2.2-18) 
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Then  the  normalized  Voigt  lineshape  function  is: 


fv(v) 


2yE2 


Re  w 


2v/in2 


(2.2-19) 


Which  can  also  be  expressed  as: 


(2.2-20) 


Where: 


z  =  X  +  iy 


(Vo-v)2Vln2 


Av.  - 

- 


(2.2-21) 


The  expression  for  the  Voigt  lineshape  function  at  line  center  is  then  found  from  2.2-19: 


v^ln2 


(2.2-22) 


The  complex  error  function  w(z)  is  solved  using  computer  algorithm  number  363  from 
the  ACM  library  which  uses  the  approximation: 


w(z)  =  exp(-z^)  erfc(-iz)  (2.2-23) 

where  the  complimentary  error  function  erfc(x)  is  solved  using  an  algorithm  based  on 
solving  the  Fresnel  integrals.  This  approximation  is  good  up  to  at  least  10  significant 
digits  [27]. 

The  theoretical  gain  spectrum  for  a  CF3I  photodissociation  laser,  broadened  by 
a  Voigt  lineshape  function  is  seen  in  Figure  2-7.  The  pressure  broadening  effects  are  due 
to  the  50  Torr  of  CF3I  present  in  the  gas  mixture.  The  radiative  processes  that  make  up 
this  spectrum  are  stimulated  emission,  stimulated  absorption,  and  spontaneous  emission. 
In  a  laser  of  this  sort,  population  is  introduced  into  the  upper  levels  of  the  hyperfine 
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structure.  Spontaneous  emission  is  the  process  where  an  atom  in  one  of  the  upper  energy 
levels  transitions  to  a  lower  energy  (due  to  the  natural  lifetime  of  the  excited  state 


Iodine  Gain  Spectrum 


-  Theoretical 


Figure  2-7  Theoretical  Gain  Spectrum 

expiring)  and  emits  a  photon  of  light.  This  is  written: 

r  I  +  (2.2-24) 

Stimulated  emission  occurs  when  an  existing  photon  of  the  proper  state  interacts  with  an 
excited  state  iodine  atom  causing  the  atom  to  transition  to  the  ground  state  and  emit  a 
photon  in  the  process: 

^^1315  +  I  I  +  Ihj'uis  (2.2-25) 

Stimulated  absorption  occurs  when  a  photon  interacts  with  a  ground  state  iodine  atom 
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forcing  it  to  transition  to  the  excited  state.  The  entire  energy  of  the  photon  is  expended 
in  this  process: 

h^ijis  +  I  -  I’  (2.2-26) 

Laser  action  is  achieved  through  these  processes.  Spontaneous  emission  provides 
a  small  amount  of  light  which  is  directed  back  through  the  gain  medium  with  resonator 
mirrors.  This  stimulates  the  emission  of  more  photons,  and  a  laser  pulse  grows  out  of 
the  noise.  Lasing  occurs  as  long  as  a  population  inversion  exists;  that  is  as  long  as  the 
population  in  the  upper  level  is  greater  than  the  degeneracy  ratio  times  the  population  in 
the  lower  level  of  a  transition  [28]. 

[Ny]  =  —  [NJ  (2.2-27) 

Sl 

Differential  equations  can  be  written  to  describe  how  the  radiative  processes  affect 
population  in  the  different  energy  levels,  and  how  light  flux  interacts  with  the  gain 
medium.  The  two  sets  of  rate  equations,  number  density  and  intensity,  are  coupled  and 
must  be  solved  simultaneously  in  order  to  model  laser  action,  but  for  now  we  will 
concentrate  on  the  contribution  by  the  radiative  processes  to  the  number  density  in  the 
hyperfine  energy  levels.  The  general  equation  describing  the  time  rate  of  change  in 
population  for  an  upper  hyperfine  energy  level  due  to  magnetic  dipole  processes  is  [29]: 


<i[Nu] 


dt 


md  L 


"U-L 


'U-L 


hv 


U-L  J 


f  (‘- 


lCNuI 


(2.2-28a) 


For  a  lower  level  the  general  form  is: 


d[NJ 


dt 


-E 

md  U 


'U-L 


hv 


U-L  J 


u  V 


(2.2-28b) 


[Nu]  and  [NJ  are  populations  of  individual  upper  and  lower  levels.  Au.l  is  the  A- 
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coefficient  for  the  transition  U-L  (2.2-5),  and  0^.^,  is  the  gain  cross  section  (2.2-4).  h 
is  Planck’s  constant  and  is  the  frequency  of  the  transition.  The  product  hvu.L  is  the 
energy  of  the  transition.  ly.L  is  the  two  way  circulating  intensity  in  the  laser  cavity 
which  can  be  described  generally  by  a  set  of  flux  equations  [30].  These  intensity 
equations  will  be  discussed  in  much  greater  detail  in  Section  2.3.  For  now  it  is 
important  only  to  realize  that  they  couple  to  the  number  density  rate  equations. 

Looking  again  at  the  radiative  contribution  to  the  number  density  equations,  it  can 
be  seen  that  the  spontaneous  emission  plays  a  very  small  part  after  lasing  starts.  It  acts 
initially  as  a  noise  term  to  begin  the  lasing  process,  spontaneously  producing  photons  at 
a  rate  described  by  the  A-coefficients  which  are  on  the  order  of  several  transitions  per 
second.  Thus  after  laser  action  starts,  the  stimulated  emission  and  absorption  terms 
dominate  and  the  noise  term  can  be  eliminated  from  the  equations: 


d[Nu] 

=:  -Y' 

dt 

stim  L 

a 

i  J 

d[NJ 

=  V 

dt 

sdni  U 

i  »v„..  J 

(2.2-29a) 


(2.2-29b) 


The  radiative  contributions  to  the  number  density  can  be  written  out  to  describe 
the  time  rate  of  change  in  population  for  each  level.  For  the  upper  ^Pi/2  levels: 


d[i;] 

dt 


md 


-  ‘^34(11;]  -  I[i«] 


^  134(0 

J  liv„ 

J  ^'’32 


(^34  A33  +  A32)  [I3  ] 


(2.2-30a) 
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(2.2-30b) 


For  the  lower  levels: 


(2.2-30C) 


d[i?3 

dt 


(2.2-30d) 


dllfl 

dt 


Itwd 


(2.2-30e) 


(2.2-30f) 


Now  that  the  radiative  contribution  to  the  number  density  equations  has  been  discussed, 
other  non-radiative  processes  which  adjust  the  population  in  each  of  the  hyperfme  levels 
through  collisional  relaxation  can  be  addressed. 
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The  primary  non-radiative  processes  which  occur  during  lasing  are  hyperfine 
relaxation  and  quenching.  Both  of  these  processes  are  collisional,  but  quenching  occurs 
on  a  much  slower  time  scale  than  the  hyperfine  relaxation,  and  generally  has  little  effect 
on  lasing  in  the  short  pulsed  laser  system  being  studied.  Hyperfine  relaxation  will  be 
dealt  with  first. 

Hyperfine  relaxation  occurs  between  the  upper  two  energy  states  in  the  hyperfine 
structure  and  between  the  lower  four  energy  states  as  shown  in  Figure  2-5.  The 
mechanisms  which  relax  the  upper  ^P,/2  levels  must  be  dealt  with  separately  from  those 
which  relax  the  lower  ^P3/2  levels.  Since  hyperfine  relaxation  is  a  collisional  process,  the 
first  step  in  determining  the  relevant  relaxation  mechanism  is  to  find  the  collision  partner 
for  the  interaction.  In  the  type  of  photodissociation  laser  being  studied,  the  particle 
species  present  can  be  limited  to  CF3I,  CF3,  I*,  I,  and  possibly  some  buffer  gas. 

A  theoretical  analysis  by  Yukov  [31]  predicts  that  the  relaxation  between  the 
excited  state  hyperfine  levels  is  due  primarily  to  resonant  energy  transfer  with  ground 
state  iodine.  Measurements  by  Thieme  and  Fill  [32]  also  show  that  the  main  contribution 
to  hyperfine  relaxation  within  the  upper  laser  level  comes  from  collisions  with  iodine 
atoms  in  the  ground  state.  This  resonant  energy  transfer,  or  exchange  interaction,  occurs 
when  an  excited  atom  transfers  its  excitation  energy  to  an  atom  in  the  ground  state.  The 
overall  effect  of  the  electronic  resonance  interaction  is  the  mixing  of  the  two  upper 
hyperfine  levels  shown  in  Figure  2-8.  The  relaxation  rate  constants  for  the  mixing  are 


Upper  Hyperfine  Energy  States 

2F  +  1 


Figure  2-8  Mixing  of  Population  Between  Levels  in  the  Excited  State 
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k32  and  .  The  contribution  to  the  time  rate  of  change  in  population  of  the  upper  F=3 
excited  hyperfine  state  is  described  by  the  differential  equation: 


-k3*2[i;][Mu]  +  k^[l2][Mu3 


(2.2-31a) 


where  [Ij]  is  the  population  of  the  upper  F=3  level,  and  [Q  is  the  population  of  the 
upper  F=2  level.  Mu  is  the  concentration  of  the  collision  partner  for  the  upper  levels, 
which  has  been  determined  to  be  primarily  ground  state  iodine. 

A  similar  equation  can  be  written  for  the  upper  F  =  2  excited  hyperfine  state: 


d[i;] 


dt 


=  -k23[l2][MJ  +  k32[l3’][Mu] 


hf 


In  steady  state  the  populations  reach  an  equilibrium  defined  by: 
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which  leads  to: 
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(2.2-31b) 


(2.2-33) 

(2.2-32) 


where  gj  is  the  degeneracy  of  the  upper  F=2  level,  gj  is  the  degeneracy  of  the  upper 
F=3  level,  and  (Ej  -  E2)  is  the  energy  separation  between  the  two  levels  and  is  much  less 
than  kT.  The  general  result  of  this  analysis  is: 


(2.2-34) 


If  we  let  the  downward  rate  kjj  =  ky,  then  the  upward  rate  can  be  found  to  be: 
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=  l^u 


(2.2-36) 


rewriting  our  rate  equations  (2.2-31)  we  get: 


d[i:] 


dt 


bf 


=  -ku[Mu]([i;]-i[i;]) 


(2.2-37a) 


d[I*] 


dt 


bf 


fc„[M„]  [i;]) 


(2.2-37b) 


Solving  these  equations  in  the  steady  state  limit  we  also  find: 


d[i;] 


dt 


thf 


7 

5 


(2.2-38) 


Thus  the  population  in  the  upper  two  hyperfine  levels  relax  toward  an  equilibrium  of 
7/12  of  the  excited  state  population  residing  in  the  upper  F=3  level  and  5/12  residing 
in  the  upper  F=2  level.  Thieme  and  Fill  report  a  theoretical  relaxation  time  for  the 
upper  level  of  30-50  ns  and  an  experimental  value  of  about  100  ns  for  their  flash  lamp 
pumped  i-CsF,!  photodissociation  laser  [33]. 

Yukov  [34]  theoretically  predicts  that  relaxation  between  hyperfine  levels  in  the 
ground  state  is  independent  of  the  electronic  nature  of  the  collision  partner.  Looking  at 
our  possible  relaxation  partners  (CF3I,  CF3,  I,  T,  Ij,  and  some  buffer  gas)  we  see  that 
any  of  these  could  play  a  role  in  relaxation.  The  overall  effect  of  the  collisions  is  seen 
in  Figure  2-9.  The  most  abundant  species  after  photodissociation  is  either  CF3I  or  some 
buffer  gas.  The  pressure  of  the  buffer  gas  could  be  varied  to  change  the  number  of 
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I 


Figure  2-9  Mixing  of  Population  Between  Levels  in  the  Ground  State 

collisions  and  thus  vary  the  relaxation  time  in  the  lower  levels.  For  any  given  collision 
partner,  the  contribution  to  the  population  rate  equations  for  the  lower  F=4  sublevel  is 
written: 


=  -  (k,3  +  +  k^,)  [I|][MJ 

+  k3,[I|][MJ  + 


(2.2-39a) 


where  the  k’s  are  the  general  relaxation  rate  constants,  the  [I]’s  are  the  population 
densities  of  the  different  levels  in  the  state,  and  the  [My  is  the  density  of  the 
collision  partner.  If  it  is  determined  that  more  than  one  collision  partner  play  a 
significant  role,  then  a  rate  equation  for  each  partner  should  be  written  containing  the 
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relevant  rate  constants  and  partner  densities.  The  equations  for  the  other  sublevels  can 
be  written  in  a  similar  manner: 


=  -  (kj,  *  kjj  *  k,,)  [If][MJ 
+  k«[I|l[MJ  +  kj3[I|](M^]  +  k,3[i;][MJ 


k,,  *  kj,)  [I|][MJ 


*  k„[I|][MJ  +  kjjdfltMJ  +  k,3[If][MJ 


=  -  (k,.  +  ki3  t  k,3)  [ifllMJ 
*  k,,[I|][MJ  ^  k„[I|][MJ  +  k3,[I|][MJ 


If  we  let  all  downward  rates  be  equal  to  a  constant  Icl, 


II 

II 

II 

II 

II 

II 

The  reverse  rates  are  found  to  be: 

II 

I 

(9/7)k43=  (9/7)kL 

k23  — 

(7/5)k32=  (7/5)kL 

II 

(5/3)k2i  =  (5/3)kL 

II 

II 

k,3  = 

(7/3)k3,  =  (7/3)kL 

ki4  = 

(9/3)k4,  =  (9/3)kL 

(2.2-39b) 


(2.2-39C) 


(2.2-39d) 


(2.2-40) 


(2.2-41) 
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The  contribution  of  the  hyperfine  mixing  on  the  number  density  equations  can  be  re¬ 
written  as: 


-  3k^[I|][MJ 


(2.2-42a) 


d[If] 


dt 


fdiHMJ 


bf 


(2.2-42b) 


d[I|] 


dt 


hf 


(2.2-42C) 


d[lf] 


dt 


=  -  VElfliMJ 


bf 


(2.2-42d) 


+  kL[l|][MJ  +  kL[l|][MJ  +  kJl|][MJ 


To  determine  the  statistical  populations  of  the  levels  in  the  steady  state,  we  let: 


d[l|] 

_  d[If] 

.  d[I|] 

_  d[in 

dt 

hf  dt 

hf  dt 

hf  dt 

(2.2-43) 


Imposing  these  conditions  on  the  Equations  2.2-43  and  solving  the  four  resulting 
equations  simultaneously,  we  find  a  statistical  distribution.  In  the  steady  state  limit,  the 
lower  levels  of  the  hyperfine  structure  relak  toward  a  statistical  equilibrium  of  9/24, 
7/24,  5/24,  and  3/24  for  F=4, 3,2,1  respectively.  Yukov’s  [35]  theoretical  analysis 
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predicts  that  for  the  lower  levels  the  relaxation  time  to  reach  statistical  equilibrium  is  on 
the  order  of  subnanoseconds.  Thieme  and  Fill  [36]  report  measuring  a  relaxation  time 
less  than  2  nanoseconds.  The  fact  is,  that  hyperfine  relaxation  for  the  lower  hyperfine 
levels  can  be  expected  to  be  very  fast. 

From  this  discussion  of  hyperfine  relaxation,  we  can  see  that  resonant  energy 
transfer  and  collisions  play  a  large  role  in  the  number  density  rate  equations.  This  role 
is  to  continuously  try  to  pull  population  into  a  statistical  equilibrium  among  the  levels. 
If  this  mixing  did  not  occur,  laser  action  would  be  significantly  different  from  what  it  is. 
If  the  hyperfine  relaxation  in  an  iodine  photodissociation  laser  in  both  the  upper  and 
lower  levels  were  sufficiently  slow,  population  inversion  would  exist  for  all  six  radiative 
transitions,  and  lasing  would  occur  on  all  six  lines.  Alekseev  [37]  predicts  theoretically 
that  since  the  lower  levels  relax  on  the  order  of  subnanoseconds,  and  the  upper  levels 
mix  more  slowly,  it  would  be  probable  to  observe  laser  pulses  on  both  the  3-4  transition 
and  the  2-2  transition.  More  discussion  on  multi-line  lasing  will  be  made  later. 

The  final  nonradiative  process  to  discuss  is  quenching.  This  process  occurs  on 
a  relatively  slow  time  scale  compared  to  hyperfine  relaxation,  but  should  still  be 
considered  to  make  the  model  more  complete.  Quenching  is  the  process  by  which 
excited  iodine  population  is  transferred  to  the  ground  state  through  collisions  with  other 
species  in  the  mixture  (Figure  2-5).  Possible  quenchers  include:  CFjI,  CF3,  Ij,  and 
some  buffer  gas.  Quenching  rate  constants  for  these  are  listed  below  [38]: 


Quencher 

Rate  Constant 

CF3I 

3.3  X  10’*^  cc/s 

CF3 

0.1  X  10*^  cc/s 

h 

3.6  X  10‘“  cc/s 

At 

1.3  X  10-*®  cc/s 

Table  2-10  Quenching  Rate  Constants 
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The  effect  of  quenching  on  the  number  density  equation  is  simple  to  describe. 
Population  is  lost  from  the  upper  two  hyperfine  levels  by: 


d[i;] 


dt 


quench 


(2.2-44a) 


d[i:] 


dt 


quench 


(2.2-44b) 


where  k,  is  the  quenching  rate  constant  for  the  number  density  of  the  relative  quencher 
[Mq].  For  the  lower  levels,  population  lost  from  the  upper  levels  is  assumed  to  be 
distributed  statistically: 


d[I|] 


dt 


quench 


d[If] 

dt 

d[l!l 


quench 


dt 


quench 


d[lf3 

dt 


quench 


*  [li])  E(k,[M,]) 

^  [ID) 

^([iD  -  (ID)  E(k,[MD) 
i([iD  ♦  [ID)  E{k,[M,l) 


(2.2-44C) 


(2.2-44d) 


(2.2-44e) 


(2.2-440 


To  see  what  sort  of  a  role  quenching  can  play  on  number  density,  suppose  that  the, most 
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important  quencher  is  I2  [39].  Also  assume  that  we  have  a  partial  pressure  of  I2  that  is 
equal  to  the  room  temperature  vapor  pressure: 

^Ij300K  “  0.403  Torr 
We  know  that  the  population  of  T  is  defined  by: 


d[V] 


dt 


=  -k. 


quench 


(2.2-45) 


The  solution  to  equation  (2.2-45),  assuming  [Ij]  is  constant,  is 


g _  g-(3.6xlO’“)(1.3xlO'“)t 

[I*]o 


(2.2-46) 


at 


cn  _  1 

[I*]o  ^ 


1.48  psec 


Thus  quenching  occurs  on  the  order  of  microseconds. 

The  final  group  of  processes  to  discuss  are  those  which  add  to  and  subtract  from 
the  population  of  atomic  iodine.  These  processes  include  photodissociation, 
recombination,  and  dimerization.  Photodissociation  is  the  process  by  which  excited 
atomic  iodine  is  introduced  into  the  laser  gain  medium.  The  process  is  described  by: 

CF3I  4-  -  CF3  +  r  (2.2-47) 

Recombination  is  where  atomic  iodine  is  removed  from  the  medium  by  reforming  an 
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alkyl  iodide: 


CF3  +  I  -*  CF3I  (2.2-48) 

Dimerization  is  where  atomic  iodine  is  removed  from  the  medium  by  the  formation  of 
molecular  iodine: 


I  +  I  -  I2 


(2.2-49) 


or  where  two  radicals  pair  up: 


CF3  +  CF3  -  C2F5  -  (2.2-50) 

We  will  look  at  photodissociation  first. 

The  photodissociation  of  alkyl  iodide  (2.2-47)  can  be  written  more  generally  as: 

RI  +  hi/  -*  R  +  r  (2.2-51) 

where  R  is  the  free  radical  of  the  dissociation:  CF3,  C3F7,  C4Fg,  CH3,  etc.  hv  is  the 
photodissociation  energy,  which  is  generally  in  the  ultraviolet  for  this  sort  of  laser.  A 
graph  of  photodissociation  cross  sections  is  seen  in  Figure  2-10  [40]. 

At  248  nm,  the  photodissociation  cross  section  for  CF3I  is: 

a  =  3  X  10  **  cm" 

The  quantum  yield  of  this  reaction  has  been  measured  to  be  close  to  100%.  Measured 
quantum  yields  of  CF3I  are  listed  in  Table  2-11  [41].  The  quantum  yield  is  defined  to 
be: 

f(r)  =  - [II] —  (2.2-52) 

[V]  +  [I] 
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Figure  2-10  Photodissociation  Cross  Sections 


Quantum  Yield 


Reference 


0.91  ±  0.003 
0.91  ±  0.005 
0.98  ±  0.02 
0.83  ±  0.05 
0.75  +  0.05 


Donahue 

Ershov 

Ivanov 

Gerek 

Gerek 


Table  2-11  Quantum  Yields  following  uv-photolysis  of  CF3I 


Thus  by  assuming  the  quantum  yield  is  high,  we  can  assume  that  100%  of  the  atomic 
iodine  produced  in  the  photolysis  is  introduced  into  the  excited  state.  We  will  also 
assume  for  now  that  as  photodissociation  occurs,  the  F=3  and  F=2  levels  of  the  excited 
state  are  filled  statistically  [42],  This  will  be  seen  experimentally  later. 

To  see  how  photodissociation  affects  the  number  density  equations,  we  will 
develop  a  pumping  term.  The  first  step  is  to  describe  the  source  of  the 
photodissociation.  We  will  assume  our  source  is  a  gaussian  pulse  from  a  KrF  excimer 
laser  at  248  nm,  and  is  pumping  transverse  to  the  gain  medium  (Figure  2-1  la). 
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The  absorption  cross  section  of  CF3I  at  248  nm  is  tr  =  3  X  lO"*’  cm^  [43].  The 
number  density  of  CF3I  can  be  found  using  the  ideal  gas  law  [44]: 


V  RT  V  (82.1)  (300)  (760) 


(2.2-53) 


At  60  Torr  this  works  out  to  be  1.93  X  10**  atoms/cc.  Using  Beers  law  and  transversely 
pumping  2  cm  of  CF3I  we  find: 


^  =  0.314 

Ij  E,  (2.2-54) 


The  energy  absorbed  into  the  CF3I  is  the  difference  between  the  energy  incident  on  the 
cell,  and  the  energy  measured  after  the  cell.  If  the  excimer  pump  energy  is  175  mJ  the 
energy  deposited  in  the  60  Torr  of  gas  can  be  found  by: 

E^bsorbed  =  E^  -  =  175(1  -  0.314)  =  120.05  mJ  (2.2-55) 

To  define  useful  gain,  the  energy  absorbed  within  the  extraction  volume  must  be 
considered.  Figure  2-1  la  defines  the  extraction  volume.  The  extraction  volume  is  a 
cylinder  since  the  aperture  within  the  I*  laser  cavity  is  a  circle.  The  energy  within  this 
cylinder  can  be  approximated  by  taking  the  ratio  of  the  volume  of  the  cylinder  to  the 
volume  of  the  box  enclosing  the  cylinder  multiplied  by  the  energy  within  the  box.  The 
energy  within  the  box  is  found  by  integration: 

56) 

=  Ein((1  -  (1  -  e“’'^^”*')) 
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Percent  of  Energy  Deposited 


Figure  2-lla  Orthograpliic  View  of  Cell  Geometry 


Figure  2-llb  Linearity  of  CF3I  Photodissociation 
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For  60  Torr  and  an  aperture  with  a  diameter  of  1  cm  centered  in  the  gain  region,  the 
energy  absorbed  within  the  extraction  volume  works  out  to  be 


(Ej  -  E,)  =  34.79  mJ  (2.2-57) 

’'box 


where 


Ej  -Ej  =  i75(e -0-579(0^  -e-«-57S'0-5))  =  57.585  mJ  (2.2-58) 


The  approximation  of  the  volume  ratios  at  60  Torr  is  valid  since  absorption  within  the 
cylinder  is  close  to  linear  (Figure  2-1  lb).  Integrating  over  the  cylindrical  volume  yields 
34.64  mJ.  The  error  of  the  approximation  increases  as  the  pressure  increases,  and  goes 
to  zero  as  the  pressure  decreases. 

The  density  of  excited  iodine  atoms  within  the  extraction  volume  is  [45]: 


[T] 

V 


34.79  1 

^'*248  ^CYLINDER 


1.97  X  10^^  I  *  atoms/cc 


(2.2-59) 


Since  we  know  the  number  density  of  excited  iodine  atoms  produced,  we  can  distribute 
this  over  time  with  our  gaussian.  If  we  center  our  gaussian  around  some  time  to,  our 
pumping  term  becomes: 


Wi.(t)  =  [F] 


2  Jin  (2)  f-41n(2)(t-to)0 

— i -  exp - - — 

JiT  At  V  At^  ) 


(2.2-60) 


At  is  the  width  of  our  excimer  pulse.  Population  is  introduced  statistically  into  our 
number  density  equations  through  this  pumping  term. 
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d[l3*]  7 

IT  = 


(2.2-61a) 


d[l2*]  5 

=-|f(I*)Wx.(t) 

pump 


(2.2-61b) 


d[l|] 


dt  24 

pump 


(1  -  f(r))Wi.(t) 


(2.2-61C) 


d[l|] 


=  ^(1  -  f(I*))Wj.(t) 


(2.2-61d) 


d[l|] 

dt 


^(1  -  f(I*))Wi.(t) 


(2.2-61e) 


d[lfl 


^(1  -f(r))Wj.(t) 


(2.2-61f) 


After  photolysis  of  the  CF3I  recombination  and  dimerization  come  into  play. 
Recombination  is  written  in  general  terms  as: 


R  +  I  -  RI 


(2.2-62) 


Dimerization  is  written  in  general  terms  as: 
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I  +  I  -*  I 


(2.2-63) 


R  +  R  -*  2R  (2.2-64) 

The  effect  of  these  processes  can  be  easily  taken  into  consideration  by  writing  several 
rate  equations  to  couple  to  the  number  density  equations.  For  recombination: 


dECFjI] 

dt 


=  -  Wj.(t) 


(2.2-65) 


dECFj] 

dt 


=  Wi.(t) 


kR[CF3][I] 


(2.2-66) 


where  kn  =  (1.6  ±  0.3)  x  10  “  (cmVmolecule  •  s)  is  the  recombination  rate  constant 
[33].  For  dimerization  of  I2: 


^  -  Ek,[M, ][!«]* 


(2.2-67) 


where  Iq  is  the  rate  constant  for  the  relevant  species  [MJ.  These  are  given  in  Table  2-12 
[34]. 


Molecule  M; 

CF3I 

Ar 


kj  (cinVmoleciile**s) 

1.3  X  10-3^ 

(6.6  ± 

(3.9  ±  0.6)  X  10:^ 


Table  2-12  Rate  constants  for  dimerization  process 


43 


For  dimerization  of  €2^6- 


dt 


(2.2-68) 


where  kp  =  (5.5  ±  1.2)  x  10'*^  (cmVmolecule  •  s)  is  the  dimerization  rate  constant  for 
the  free  radicals.  Recombination  and  dimerization  affect  the  population  in  the  lower 
levels  as  follows: 


drill 


dt 


RD 


(2.2-69a) 


d[I|] 


dt 


R£> 


-kJlf][CF3]  - 


(2.2-69b) 


d[l|] 


dt 


RD 


=  -kanfircF,]  -tIjT5:(k,[M,I) 


(2.2-69C) 


d[If] 


dt 


RD 


-k^dlKCFj]  -  [If]=E(k,[M,]) 


(2.2-69d) 


Taking  into  account  all  of  the  processes  discussed  in  this  section  we  can  write  a 
complete  set  of  rate  equations  to  describe  the  change  in  population  in  the  different 
hyperfine  levels. 
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d[i;] 


^  ^  kinjiiMy]  -  k«[i;][M„]  -  {A3,  +  A33  +  a33)[i;] 


I  pump  tenn  J 


relaxadoa  tenns 


spontaneous 
transition  tenns 


■(«’  -  ■  5 ;  WM.1) 


stimalated  transition  tenns 


J  I 


quendiing  tenn 


J 


=  Af(r)W,.(t)  -  ki[i;][MJ  -(A^*A^^  Aj,)[Ij*] 


(2.2-70a) 


^  pump  term  -I 


relaxation  terms 


spontaneous 
transition  terms 


-  a. 


23 


(t.;,  - - «.(«!  -  -  [la  rfttM.,) 


stimulated  transition  tenns 


J  I 


quenching  tenn 


J 


(2.2-70b) 


driji  Q 

—  '  24^^  -f(I*))Wr(t)  -  k^dfirMJ  4  k^[I*][MJ  +  k,Jl{][MJ  -  (k«*k«*k«)ti;i[MJ 


pump  term 


relaxation  terms 


+  o. 


stimulated 
transition  terms 


spontaneous 

I  transition  J  I -  quenching  term  - 1 


terms 


-  kR[i4*][CF3] 


L _ recombination  and  I 

dimerization 


(2.2-70C) 
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dt 


^(l-f(r))W,.(t)  +  k«tI*][Ml  +  kj3[l|][M]  +  k,3[lf][Ml  -  (k3,+k3j  +  k„)[l|][M] 


pump  tenn 


relaxation  tenns 


J 


+ 


033(ti;]  -  [13*]) 


133(0 

hV3j 


^  ‘’23([I^]  -  f  [13*]) 


123(0 

hv^, 


+  A33[l3]  ^  A33[l3*l 


I _  Stimulated 

transition  terms 


L 


spontaneous 
transition  terms 


j 


^  ^[Ii])2(kJM,])  -  k^EiniCFj]  -  [l3TE(l^im]) 

^  j 


quenching  term 


recombination  and 
dimerization 


(2.2-70d) 


d[l|] 

dt 


A(1  -f(r))Wi.(t)  +  k«[I*][M]  +  k33[I*][M]  +  k^[lf][Ml  -  {k3,+k33+k3,)[l‘][Ml 
I —  pump  term  — I  I -  relaxation  terms  - 1 


+  a. 


[n;]  -  |[l3*l)^  -  ‘^22([l2]  -  P5])^  "  bulls']  - 


•^32 

Stimulated 
transition  terms 


J  |_  spontaneous  j 
transition  terms 


"  ^[I']2(kJM,])  -  k^[I*][CF3]-[l2YE(>^i[M.]) 


quenching  term 


recombination  and  I 

dimerization 


(2.2-70e) 
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A(l-f(I*))W,.(t)  +k„[IJ][M]  +k„[lf][M]  +kj,[I*][M]  -(k„*k„4ku)[I*][Ml 
I —  pump  tenn  — I  I -  relaxatioa  teims  - 1 


[r]E(kJM,]) 


Stimulated 
transition  term 


spontaneous 

L  transition  J  I —  quwiching  term  — I 

term 


-  k^[I*][CF3]  -[Iff  ^(k.[Mjl) 

(  recombination  and  I 

dimerization 

(2.2-700 


2.3  Laser  Intensity  Equations 

Now  that  we  are  finished  covering  the  number  density  equations,  we  can  discuss 
the  intensity  rate  equations  in  greater  detail,  and  apply  these  flux  equations  to  the 
particular  laser  system  under  consideration.  Recall  that  the  number  density  equations  are 
coupled  to  the  intensity  equations  through  the  stimulated  emission  term.  The  intensity 
equations  can  be  written  in  the  general  form  which  is  valid  for  non-diffracting  plane 
waves  [48] 


—  +  c—  =  c(a  -  se)r  +  Q  (2.3-la) 

3t  dz 

K  -  =  c(a  -  ce)l-  +  Q  (2.3-lb) 

ot  dz 

a  is  the  linear  small  signal  gain  (2.2-3),  ^  is  a  distributed  loss,  Q  is  a  noise  term,  and 
c  is  the  speed  of  light.  is  the  flux  traveling  to  the  right  through  the  cavity  and  T  is 
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the  flux  traveling  left.  Both  I'*’  and  I'  are  functions  of  position  z  and  time  t  (Figure  2- 

12). 


RMAX  OUTCOUPLER 

MIRROR 


Figure  2-12  Intensity  in  a  Laser 


If  we  use  the  uniform  field  approximation,  which  ignores  the  spatial  dependence 
of  the  intracavity  field  [49],  we  get: 


dr  ^ 

dz  dz 


(2.3-2) 


Thus  the  general  form  for  the  intensity  equations  using  the  uniform  field  approximation 
is  given  by: 

=  c(a  -S£)I(t)  +  Q  (2.3-3) 


To  write  the  intensity  equations  more  specifically  for  the  laser  system  under 
consideration,  we  must  define  the  cavity  more  exactly  than  Figure  2-12.  The  model  for 
the  laser  cavity  is  shown  in  Figure  2-13.  We  can  assume  in  this  model  that  outside  the 
gain  region  a=0,  ^=0,  and  Q=0.  Inside  the  gain  region  a=a(t),  Q=Q(t),  and  X  is 
constant.  If  we  integrate  Equation  2.3-1  over  the  gain  region  in  Figure  2-13,  we  get 
[50]: 
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-13  Intensity  in  Laser  Cavity 


(2.3-4) 


D,  ♦L 


I  ^dz  +  c[i;  -  i;]  =  c(a -S£)  f  Vdz  +  QL^ 


D,  ♦  L  -  «2 


D,M, 


yfds.c[i;-i3-] 

^2 


c(a-S£)  f  I'ds  +  QLg 


(2.3-5) 


Next  we  define  an  average  two  way  circulating  intensity  within  the  region  between 
window  1  and  window  2  [51]: 


(2.3-6) 


Adding  Equations  2.3-4  and  2.3-5  together  and  using  the  above  equation  (2.3-6)  we  find 
an  equation  for  the  two  way  circulating  intensity  between  the  two  windows: 


where 


(a  -SE)I  +  2Q 


(2.3-7) 


f  rdz 

D,M, 


f  rds 

Dj  +  ^ 


(2.3-8) 


Next  we  perform  a  similar  integration  over  Equations  2.3-1  for  the  region  between 
mirror  1  and  window  1,  and  define  an  average  two  way  circulating  intensity  for  this 
region: 


I 


1 


D 

J  I"ds 

Dj+L 


(2.3-9) 
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Similarly,  we  find  the  equation  for  the  two  way  circulating  intensity  in  the  region 
between  mirror  1  and  window  1  to  be: 


(2.3-10) 


This  same  procedure  is  followed  for  the  region  between  window  2  and  mirror  2.  The 
average  two  way  circulating  flux  is  defined  as: 


Dj  D 

T.  =  —  f  I'ds  +  —  r  I"dz  (2.3-11) 

2  D,  J  D,  J 

0  D,  +L 


The  two  way  circulating  intensity  between  window  2  and  mirror  2  is: 


(2.3-12) 


The  next  logical  step  is  to  link  the  two  way  circulating  flux  equations  for  each  of  the 
regions  by  applying  boundary  conditions  at  the  interfaces  of  each  region.  The  boundary 
conditions  for  the  windows  are  defined  by  the  transmission  losses  across  the  windows: 


l6  =  tj:  l3^  = 

I3  ~  t2^S  ^  “  fll4 


(2.3-13) 


where  tj  is  the  transmission  of  window  1  and  ^  is  the  transmission  of  window  2. 

The  boundary  conditions  of  the  mirrors  are  defined  by  the  reflectance  of  the 
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mirrors: 


I?”  —  ^2  —  ^2^^  (2.3-14) 

where  R,  is  the  reflectivity  of  mirror  1  and  Rj  is  the  reflectivity  of  mirror  2. 

At  this  point  it  is  convenient  to  bring  in  the  uniform  field  approximation  again  and 
apply  it  to  each  of  the  regions.  For  the  region  between  window  1  and  window  2  we 
assume  +  T  is  constant  to  get: 


i3^  +  li  =  I3  +  i;  =  i 


(2.3-15) 


For  the  region  between  mirror  1  and  window  1  we  assume  +  T  is  constant  to  get: 


15^  +  =  II  +  l;  =  I, 


(2.3-16) 


For  the  region  between  mirror  2  and  window  2  we  assume  +  r  is  constant  to  get: 

I2  +  I2  =  Is  +  Is  =  12  (2.3-17) 


Equations  2.3-15,  2.3-16,  and  2.3-17  can  be  re-arranged  to  form  the  following 
relationships  between  flux  within  the  three  regions: 


T*  Riii 


1  +R. 


I, 


(100) 


1 


I,  =  " " 


1  +R, 


I*  _ 

^■TT;r 


I;  = 


h  -  t^I 
1  -  tl 


(2.3-18) 
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Il  -  tll 

1  -  A 


^  Ji) 

1  -  A 


Substituting  the  flux  relationships  (2.3-18)  into  the  equations  for  two  way  circulating 
intensity  in  each  of  the  regions  (Equations  2.3-7  through  2.3-12)  we  arrive  at  a  set  of 
three  coupled  differential  equations  which  describe  the  two  way  circulating  intensity  in 
each  of  the  three  regions  [52]: 


£l  .  _L 

dt  D. 


2(1, -t,l) 

1-t? 


2R,  - 
1+R, 


=  0 


(2.3-19a) 


^  ^  2(i,-t,I) 

dt  ^  ^2  1-tl 


2^2 
1  +R2 


=  0 


(2.3-19b) 


,  2> 

—  h  *  —h  - 

■'I  4 

1  +t, 

~  tjl  I 

dt  L 

k  / 

x- - 

1 

(2.3-19C) 

cL  -  L 

K  =  — S.(a  -se)I  +  2Q— S- 
L  L 


-2  / 


''t 

1 2  t2l 

1-A 


Further  simplification  can  be  made  by  assuming  the  transit  time  of  the  photons  between 
the  windows  and  mirrors  is  negligible.  To  do  this  we  assume: 
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(2.3-20) 


Thus  ignoring  the  photon  transit  time  from 

n  =  tii: 


12"  -  It 

Is  =  I2 

window  to  mirror,  we  get  the  relationships: 


I3  -  ^212 


(2.3-21) 


Using  the  relationships  found  in  Equation  14  we  get  a  new.  set  of  flux  relationships 


tjd+Rj)! 

2  T" 


(2.3-22) 


Substituting  these  equations  into  2.3-19  and  replacing  L  with  D  to  conserve  the  overall 
transit  time  we  find  the  overall  general  form  for  the  two  way  circulating  equations  to  be: 


dt 


(a  -S£)I  +  2Q 


-  -^I 

■l-R,t^2  ^ 

1-Rit? 

IdJ 

D 

l+Riti 

l+R^t^ 

(2.3-25) 


The  form  of  this  equation  is  very  similar  to  Equation  2.3-3,  but  losses  in  windows  and 
mirrors  are  taken  into  account  separately,  rather  than  being  lumped  into  a  distributed  loss 
X. 

Equation  2.3-23  can  be  written  in  a  more  comprehensible  form  by  defining  a 
cavity  loss  rate  [53]: 
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(2.3-24) 


Y 


cav 


‘  1+R.t=  1-R,4 


This  allows  Equation  2.3-23  to  be  written  as: 


dl(t) 

dt 


L 


gain 


term 


J 


Ycvi(t)  ^  2Q^ 

(2.3-25) 

[_  loss  _j  [_  noise  j 
term  term 


The  cavity  loss  rate  can  be  simplified  further  by  the  approximation: 


2(1  -R,t;R,t,^)  _  ,  1  ' 

(1  +R,t^(l  ^-Rjtj")  2 


(2.3-26) 


By  letting  t,=t2=l  we  arrive  at  a  definition  for  threshold  gain  similar  to  that  given  by 
Verdeyen  [54]: 


a 


th 


_1_ 

2D 


RjR, 


(2.3-27) 


Our  cavity  loss  rate  term  works  out  to  be: 

+  ocj 


2.3-28 


where  a*  is  the  loss  due  to  outcoupling  energy  from  the  cavity,  and  is  the 

remaining  loss,  both  of  which  are  distributed  over  the  length  of  the  cavity. 
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The  remaining  portion  of  the  intensity  rate  equations  which  must  be  addressed  is 
the  noise  term  Q.  A  small  amount  of  intensity  is  introduced  into  the  system  of  rate 
equations  through  the  spontaneous  emission  process  (Figure  2-5).  Verdeyen  writes  the 
noise  term  [55]  as  the  rate  of  increase  of  photons  in  the  TEMq  o.i  cavity  mode  due  to 
spontaneous  emission: 


dt 


■SpOQt 


(A„.JN„]V„) 


(2.3-29) 


where  Au.l  is  the  A-coefficient,  [Ny]  is  the  population  density  of  the  state  from  which 
the  transition  is  originating,  is  the  mode  volume,  fv(v)  is  the  Voigt  lineshape  function, 
and  c/2D  is  the  longitudinal  mode  spacing  within  the  cavity/  By  canceling  terms  and 
recalling  our  definition  for  gain  cross  section  (Tu.l,  this  equation  can  be  reduced  to  a  more 
compact  form: 


d<i)p 

dt 


spont 


[Nulc 


‘U-L 


[Ny]  C  Oy 


(2.3-30) 


To  convert  total  flux  to  photon  density  [56]: 


c  (|>hv  ^  dl  _  c  hv  d(|) 

AD  It  ~  AD 


(2.3-31) 


where  hv  is  the  energy  of  the  photon  and  AD  is  the  mode  volume.  Thus  for  the 
spontaneous  emission  noise  term  we  get: 


dl 

dt 


c^hvo 


U-L 


spout 


AD 


[Ny] 


(2.3-32) 
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factoring  in  the  ratio  of  gain  length  to  cavity  length  squared  we  find: 


dl 

=  20  = 

f'-'l 

2 

^  c^hv  au_L^ 

dt 

_  — 

Id  J 

AD  J 

[N„] 


(2.3-33) 


To  complete  the  discussion  of  the  intensity  equations,  we  must  realize  that  the  general 
expression  in  Equation  2.3-25  must  be  applied  to  each  of  the  radiative  transitions.  The 
following  list  summarizes  the  intensity  equations  for  all  six  of  the  possible  radiative 
transitions  in  the  atomic  iodine  laser  under  consideration: 


dl34(t) 

dt 


dl33(t) 

dt 


'33 


-  II 


dl32  (t) 
dt 


dIaaCt) 

dt 


diaaft) 

dt 


dlai(t) 

dt 


=  ”M(ti3‘i  -  |[ifi) 
=  -  [ifij 

-  <’2.(iiJi  -  fufi) 


Y^.I«(t)  +  2Qi 

(2.3-34a) 


(2.3-34b) 

(2.3:34c) 

(2.3-34d) 

YcvMt)  ^  2Qi 

(2.3-34e) 

YcviziCt)  ^  2Qi 

(2.3-34f) 
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2.4  Numerical  Results 


The  theory  required  to  model  a  short  pulsed  excimer  pumped  atomic  Iodine  laser 
was  outlined  in  the  previous  sections  in  fairly  rigorous  detail.  Several  approximations 
were  made  which  simplified  the  modeling.  The  purpose  of  this  section  is  to  determine 
which  approximations  can  be  made  and  then  demonstrate  the  workings  of  the  model  using 
a  computer  to  solve  the  system  of  equations. 

The  most  rigorous  approach  is  the  paraxial  wave  equation  approach  (Equations 
2.3-1)  which  involves  solving  the  intensity  equations  with  respect  to  both  time  and  space 
within  the  cavity.  There  are  several  situations  in  which  it  .may  be  necessary  to  include 
the  spatial  dependence  as  well  as  the  time  dependence  of  the  intensity  within  the  cavity. 
One  such  system  is  the  modeling  of  extremely  short  pulsed  systems  which  involve  pulse 
propagation  within  the  laser  cavity.  Another  situation  is  systems  which  have  both  a 
spatially  dependent  gain  and  a  fairly  short  pulse  length  relative  to  cavity  length.  An 
example  of  a  system  with  a  spatially  dependent  gain  is  one  with  a  longitudinal  pumping 
configuration  and  a  long  gain  length.  A  third  system  which  may  require  modification  of 
the  paraxial  wave  equation  approach  is  a  very  low  pressure  amplifier  system  in  which 
it  takes  the  velocities  of  the  excited  species  a  significant  amount  of  time  to  reach  a 
Boltzmann  distribution  [57]. 

The  system  which  I  am  studying  involves  a  transverse  pumping  configuration, 
which  removes  the  z-dependence  of  the  gain.  Previous  studies  by  E.E.  Fill  show  pulse 
durations  between  2-12  ns  FWHM  [58].  My  own  experimental  measurements  show 
pulse  durations  between  20-100  ns  FWHM  for  a  16  cm  cavity.  It  is  seen  that  the 
uniform  field  approximation  is  definitely  valid  for  a  20  ns  pulse  in  a  16  cm  cavity  since 
the  speed  of  light  is  30  cm/ns  and  a  20  ns  pulse  would  be  easily  distributed  evenly  over 
a  16  cm  cavity  at  any  given  point  in  time.  Concern  about  velocity  distribution  is  not 
necessary  around  50  Torr  of  CF3I.  The  mixture  reaches  a  Boltzmann  distribution  almost 
immediately  upon  photodissociation  due  to  the  high  pressure  of  CF3I  [59].  The  uniform 
field  approximation  leads  to  the  equations  2.3-34.  The  intensity  equations  with  the 
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number  density  equations  yield  a  full  set  of  sixteen  coupled  differential  equations  (2.2-65 
to  2.2-68,  2.2-70,  and  2.3-34). 

Various  other  approximations  can  be  made  to  the  sixteen  equation  model  with 
little  or  no  effect.  One  such  approximation  is  to  assume  that  quenching  plays  little  or  no 
role  in  laser  action,  thus  eliminating  the  quenching  terms  from  Equations  2.2-70  and 
eliminating  altogether  2.2-65  through  2.2-68.  This  reduces  the  total  number  of  equations 
to  12:  six  number  density  and  six  intensity.  The  validity  of  this  approximation  is  seen 
in  Equation  2.2-46  where  quenching  of  T  by  I2  is  seen  to  occur  on  a  microseconds  time 
scale.  The  spontaneous  emission  terms  in  the  number  density  equations  can  also  be 
neglected  since  the  contribution  to  the  overall  population  in  each  level  is  small.  This  is 
due  to  the  A-coefficients  being  on  the  order  of  a  few  transitions  per  second.  The  noise 
term  in  the  intensity  equation  is  sufficient  to  create  the. impetus  to  drive  the  set  of 
equations.  Both  quenching  and  spontaneous  emission  terms  are  retained,  however;  to 
maintain  completeness  and  a  detailed  balance. 

Another  set  of  approximations  deals  with  hyperfine  relaxation.  Previous  work  has 
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Figure  2-14  Processes  Assuming  Lower  Level  Relaxation  Fast 
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shown  that  relaxation  between  the  lower  hyperfine  levels  occurs  on  a  sub-nanosecondtime 
scale  while  relaxation  between  the  upper  levels  occurs  on  a  much  slower  time  scale  (tens 
of  nanoseconds)  [60].  An  approximation  which  Alekseev  makes  [61]  is  that  the 
population  distribution  in  the  lower  levels  during  lasing  is  statistical,  while  the  upper  two 
levels  mix  at  the  same  finite  rate.  This  approximation  leads  to  three  number  density 
equations  and  two  intensity  equations  describing  population  in  the  upper  two  hyperfine 
levels,  the  lower  ground  level,  and  the  two-way  circulating  intensity  from  the  upper  F=3 
sublevel  to  ground,  and  the  upper  F =2  sublevel  to  ground.  The  statistical  distribution 
in  the  ground  state  fixes  the  population  and  allows  only  two  possible  radiative  transitions 
instead  of  six.  The  processes  for  this  nine  equation  model  are  seen  graphically  in  Figure 
2-14.  The  number  density  equations  for  this  approximation  can  be  written: 


jrT*  1 

+  i4[i;][m„]  -  ki[i;][M„]  -  (A3,  *  A33  *  a33)[i;] 

df  I*  J 

-  -  fin2(kjM,])  (2.4.1b) 


dt 


+  +  (A53*A^+A3,)[q*]  +  ([i;]  +  [l2*])E(kJM,]) 

-  kJI*][CF3]  -  [I*]2^(ki[m) 
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Intensity  equations  only  need  to  be  written  for  two  transitions  due  to  the  nature  of  the 
approximation: 


Y«vl34(t)  +  2Q^ 

(2.4-ld) 

a 


(2.4-le) 

Equations  2.2-65  through  2.2-68  are  coupled  in  for  recombination.  This  approximation 
can  be  taken  a  step  further  by  assuming  the  hyperfine  relaxation  between  the  upper  two 
levels  is  fast  enough  to  keep  the  populations  statistical.  In  this  case  the  3-4  transition 
will  be  the  only  transition  to  lase.  The  seven  equation  model  can  be  described 
graphically: 
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Figure  2-15  Processes  Assuming  Relaxation  Fast  in  Both  Levels 
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The  rate  equations  for  these  simplified  processes  work  out  to  be: 


din 

dt 


f(I •)W,.(t)  -  (Aj,  +  A3,  +  Ajj  +  Aj,  +  Ajj  ♦  Aj,)  [!•] 


(2.4-2a) 


dli»] 

dt 


+  (A3,*A3,+A,3+A23*A,3+A,,)[r]  +  [r]S(kJM,J) 

4 


-  kJI*][CF3]  -  II»]'5:(ki[Mi]) 

i 


(2.4-2b) 


dl34(t) 

dt 


'34 


1  \ 

[I*]  -  ^[I*] 

2  j 


2_ 

12 


Ycav^34(^) 


+ 


(2.4-2c) 


In  addition,  equations  2.2-65  through  2.2-68  are  coupled  in  for  recombination.  The 
combinations  of  approximations  are  limitless,  but  several  different  combinations  of  the 
approximations  above  were  tried  and  compared.  I  chose  to  use  the  sixteen  equation 
model  for  completeness  of  the  population  equations.  The  seven  equation  model  lacked 
the  effect  of  hyperfine  relaxation  on  the  pulse  shape.  This  effect  is  an  exponential  tail 
on  the  trailing  side  of  the  T  laser  pulse  caused  by  a  finite  relaxation  time.  The  nine 
equation  model  did  a  better  job  showing  this  tail,  but  the  sixteen  equation  model  was 
chosen  to  include  the  effects  of  mixing  in  the  lower  levels. 

The  set  of  sixteen  coupled  differential  equations  (2.2-65  —  2.2-68,  2.2-70,  and 
2.3-34)  are  solved  over  time  using  the  double  precision  FORTRAN  version  of  the 
Livermore  Solver  for  Ordinary  Differential  Equations  (DLSODE).  This  solver  uses  an 
Adams-Bashford  technique  for  solving  differential  equations  which  allows  for  the 
stiffness  of  the  problem  [62].  A  listing  of  the  FORTRAN  program  which  drives  the 
equation  solver  is  in  Appendix  B. 
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Outputs  from  the  code  include  a  graph  of  laser  pulse  intensities,  number  densities 
within  each  of  the  hyperfine  levels,  small  signal  gains  for  each  of  the  radiative 
transitions,  and  a  listing  of  input  parameters,  output  parameters,  and  solver  statistics. 
Examples  of  these  outputs  are  shown  in  Figures  2-16  through  2-18  and  Table  2-13. 
Time  is  incremented  from  0  to  1500  ns.  At  about  100  ns  an  excimer  laser  pulse  modeled 


Figure  2-16  T  Laser  Intensities 
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with  a  gaussian  pulse  peaks  out  (Figure  2-16).  At  the  peak  of  the  excimer  pulse,  half 
of  the  energy  within  the  pulse  has  been  dumped  into  the  CF3I  gain  medium,  and  in 
Figure  2-17  it  is  seen  that  the  population  has  increased  half  way  to  its  maximum.  After 
the  excimer  pulse  has  fully  passed,  population  in  the  upper  two  levels  is  at  a  maximum 
(Figure  2-17).  The  population  is  distributed  statistically  between  these  two  levels:  7/12 
in  the  upper 


Figure  2-17  I*  Laser  Population  Densities 
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F=3  level,  and  5/12  in  the  upper  F=2  level.  After  a  period  of  time  commonly  referred 
to  as  the  cavity  build-up  time,  or  mode  build-up  time,  the  stimulated  emission  terms  in 
the  differential  equations  take  over  and  a  laser  pulse  emerges  from  the  spontaneous 
emission  noise  on  the  3-4  transition  (Figure  2-16).  This  action  dumps  population  from 


Laser  Gain 


Figure  2-18  T  Laser  Gain 


65 


I 


Pulsed  r  16  Equation  Model  I/O  Parameters 


gain  length  = 

2.800  cm. 

cayity  length  = 

16.000  cm. 

uv  pump  energy  — 

0. 175  Joules 

i*  yield  =  ' 

90.000  % 

pump  pulse  width  = 

0.180E-07  secs  fwhra 

output  mirror  reflectivity  = 

0.964  % 

internal  loss  = 

0.000  % 

iodide  pressure  = 

60.000  torr 

argon  pressure  = 

0.000  torr 

upper  level  relaxation  rate  constant  = 

1.50E-09  cc/s 

lower  level  relaxation  rate  constant  = 

0.40E-09  cc/s 

window  transmission  = 

1.000 

scattering  losses  ==^ 

0.000 

excimer  energy  deposited  in  gain  region  = 

3.48E-02  Joules 

extracted  energy  = 

3.21E-03  Joules 

cavity  build-up  time  = 

3.38E-I-02  nsec 

maximum  small  signal  gain  = 

no,  steps  =  10094  no.  f-s  =  12873  no.  j-s  =  1860 


Table  2-13  Input  and  Output  Parameters  of  Computer  Model 


the  upper  F=3  level  to  the  lower  F=4  level  (Figure  2-17).  Following  this  laser  action 
hyperfine  relaxation  terms  came  into  play  to  pull  population  back  into  statistical 
equilibrium.  Relaxation  time  constants  used  are  those  calculated  by  Alekseev  [63]  Once 
again  [I3*]  and  [Q  are  at  7/12  and  5/12  respectively.  [I|],  [If],  [If]  and  [If]  are  at  9/24, 
7/24,  5/24,  and  3/24.  Recombination  and  dimerzation  remove  population  from  the  lower 
levels.  Figure  2-18  shows  how  the  small  signal  gain  evolves  with  time.  Table  2-13  lists 
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input  parameters,  output  parameters,  and  solver  statistics. 

Input  parameters  seen  in  Table  2-13  which  are  of  particular  interest  include  output 
coupler  reflectivity,  CF3I  pressure,  and  cavity  length.  Figures  2-19  through  2-20  show 
the  output  from  the  code  as  each  of  the  parameters  is  varied.  All  cases  assume  no  losses. 

Figure  2-19  is  a  comparison  between  output  laser  pulses  as  the  outcoupling  mirror 
changes.  Pressure  is  kept  constant  at  60  Torr  and  cavity  length  is  16  cm.  Figure  2-19a 
shows  the  theoretically  predicted  laser  pulses  for  values  of  outcoupling  mirrors  between 
86%  and  98%  as  listed.  Since  we  have  assumed  no  cavity  losses  aside  from  outcoupling, 
the  mirror  with  the  least  amount  of  outcoupling  loss  should  have  the  highest  energy.  The 
energy  for  each  pulse  is  plotted  in  Figure  2-19b.  As  predicted,  the  98%  outcoupler  is 
seen  to  have  the  highest  energy.  This  is  not  necessarily  true  in  a  system  with  losses. 
It  is  important  to  understand,  however;  that  before  we  start  introducing  losses  into  the 
system  the  energy  will  approach  a  theoretical  maximum  as  the  outcoupling  losses  go  to 
zero.  This  theoretical  maximum  is  found  by  taking  the  amount  of  UV  energy  deposited 
in  the  CF3I,  converting  it  into  equivalent  energy  in  terms  of  1.315  /tm  photons,  and 
multiply  by  the  quantum  efficiency  (2/3  from  Figure  2-4  or  2.1-11).  This  works  out  to 
be: 


(34.8  mJ) 


248nm  W  2  ) 
1315 nm  J(  3  j 


4.375  mJ 


Figure  2-19b  demonstrates  that  this  is  predicted  by  the  rate  equation  model. 

Figure  2-20  demonstrates  varying  CF3I  pressure  keeping  the  cavity  length  at  16 
cm  and  the  outcoupler  reflectivity  at  96.4%.  Pressures  range  between  10  and  100  Torr 
as  listed.  At  low  pressures,  the  energy  is  low  due  to  the  lack  of  CF3I  to  produce  I*.  At 
high  pressures,  a  good  percentage  of  UV  light  is  absorbed  before  it  reaches  the  extraction 
volume,  thus  the  energy  should  fall  off  after  some  optimal  pressure.  Figure  2-20b  shows 
this  effect. 

Figure  2-21  demonstrates  how  laser  pulse  characteristics  change  with  increasing 
cavity  length.  The  pressure  is  60  Torr  and  the  outcoupler  is  96.4% .  Varying  the  cavity 
length  in  steps  of  16  cm  from  16  cm  out  to  112  cm  has  the  simple  result  of  increasing 
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Figure  2-19a  1“  Laser  Intensities  for  Various  Outcoupling  Mirrors 


Figure  2-19b  I"  Laser  Energy  versus  Outcoupler  Reflectivity 
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Figure  2-20a  1“  Laser  Intensities  for  Various  CF3I  Pressures 


Figure  2-20b  T  Laser  Energy  versus  CFgl  Pressure 
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Figure  2-21b  I'  Laser  Energy  versus  Cavity  Length 
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the  round  trip  time  of  the  photons  in  the  cavity.  This  has  the  expected  effect  of  a  linear 
increase  in  both  cavity  buildup  time  and  pulse  width.  Since  the  photon  time  in  the  cavity 
is  the  only  variable,  the  energy  of  each  pulse  should  be  constant.  This  is  seen  in  Figure 
2-21b. 

There  are  several  interesting  effects  which  the  model  can  be  used  to  demonstrate. 
One  such  effect  mentioned  earlier  in  Section  2.2  in  the  discussion  of  hyperfine  relaxation 
is  the  possibility  of  multiple  line  lasing.  If  hyperfine  relaxation  between  the  upper  two 
energy  states  was  sufficiently  slow,  two  line  lasing  could  occur.  If  lower  level  hyperfine 
mixing  were  also  slow,  more  lines  could  lase.  With  the  code,  conditions  might  be 
simulated  such  that  all  six  transitions  could  develop  laser  pulses.  One  way  to  test  this 
case  is  to  adjust  the  relaxation  rate  for  the  system  used  in  the  above  examples.  The 
pressure  is  fixed  at  60  Torr,  the  cavity  length  at  16  cm,  and  the  outcoupling  mirror  at 
96.4%.  Excimer  energy  is  increased  to  ensure  gain  on  the  radiative  transitions  is  above 
threshold.  The  hyperfine  relaxation  rate  constant  for  the  upper  levels  is  set  to  zero. 
Figure  2-22  shows  plots  of  the  number  density  and  the  intensity  for  the  lasing  conditions. 
As  was  expected,  two  lines  were  forced  to  lase.  By  setting  the  lower  level  relaxation 
rate  constant  to  zero  also,  we  stop  the  mixing  in  the  lower  sublevels  to  try  and  force 
more  lines  to  lase.  Figure  2-23  demonstrates  the  result.  A  more  realistic  way  to 
demonstrate  the  multiple  line  lasing  effect,  as  mentioned  earlier,  is  to  lower  the  CFjI 
pressure  and  longitudinally  pump  the  laser.  With  some  modification  to  the  pump  term 
in  Section  2.2  this  longitudinal  pumping  scheme  can  simulated.  Figure  2-24  shows  the 
two  line  lasing  using  the  longitudinal  pumping  scheme,  a  CF3I  pressure  of  0. 100  Torr, 
cavity  length  of  600  cm,  gain  length  of  500  cm,  a  pump  energy  of  500  mJ,  and  an 
outcoupling  mirror  of  80%. 

Another  interesting  effect  dealing  with  hyperfine  relaxation  which  has  not  been 
mentioned  yet  is  relaxation  oscillation  [64].  This  occurs  when  a  gain  medium  is  pumped 
with  a  large  amount  of  energy  over  a  long  pump  pulse  duration.  In  this  phenomena, 
lasing  occurs  on  the  3-4  transition,  dumping  population  out  of  the  upper  F =3  level,  and 
decreasing  laser  intensity  as  the  level  is  depopulated.  Relaxation  occurs  to  repopulate 
the  F=3  level,  and  at  the  same  time  more  CF3I  is  being  photodissociated  due  to  the  long 
pump  pulse,  and  thus  the  F=3  level  is  populated  rapidly.  This  gives  rise  to  an  increase 
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Figure  2-23  Multi-Line  Lasing 
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Figure  2-24  Two  Line  Lasing  Induced  by  Laser  Design 
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Figure  2-25  Relaxation  Oscillation 
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in  intensity  on  the  3-4  transition.  Thus  this  oscillation  in  intensity  continues  until  the 
pump  pulse  is  expended.  This  action  is  seen  in  Figure  2-25. 

Until  now  we  have  assumed  no  losses  in  the  system.  The  model  was  tested 
assuming  no  losses  to  ensure  it  was  performing  in  a  reasonable  manner  and  to  predict 
several  phenomena  which  may  occur  in  such  a  system  of  rate  equations.  To  truly 
quantitatively  model  such  a  laser  system,  inter-cavity  losses  must  be  incorporated  in  the 
model.  A  standard  approach  to  incorporating  losses  into  a  laser  system  is  to  distribute 
the  loss  over  the  entire  cavity.  Another  approach  is  to  lump  the  losses  in  particular  spots 
within  the  cavity  such  as  in  the  mirrors  or  windows.  As  seen  earlier,  the  model  which 
we  are  looking  at  uses  both  approaches  by  including  a  distributed  loss  and  window 
transmission  losses.  Mirror  absorption  losses  and  scattering  losses  are  included  in  the 
final  integration  of  the  energy.  Figure  2-26  shows  the  effect  on  outcoupled  energy  and 
cavity  buildup  time  as  a  result  of  changing  the  distributed  loss  in  the  system.  Figure  2- 
27  shows  the  effect  on  outcoupled  energy  and  cavity  buildup  time  as  a  result  of  changing 
the  window  transmission  loss.  The  intensity  predictions  are  presented  in  terms  of  energy 
versus  outcoupler  transmission  plots,  which  is  analogous  to  the  standard  Rigrod  approach 
used  to  model  gain,  loss,  and  saturation  intensity  in  CW  lasers.  The  approach  is  useful 
in  this  instance  as  a  comparison  to  lossless  situation  seen  in  Figure  2-19b.  Both  types 
of  losses  appear  to  have  a  similar  effect  on  the  energy  plots  and  the  cavity  buildup  time 
plots. 

Now  that  we  have  seen  that  the  computer  code  behaves  in  a  reasonable  manner, 
we  can  predict  the  behavior  of  the  experimental  measurements  in  the  following  sections. 
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Energy  (Joules)  Buildup  Time  (ns) 
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Outcoupler  Transmittance 


Outcoupler  Transmittance 


Figure  2-26  Result  of  Adding  Distributed  Loss 
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3.  Experiment 


3.1  Apparati 

There  are  two  experimental  apparati  which  are  used  to  make  several 
measurements.  The  first  is  a  laser  set  up  which  is  used  to  make  parametric 
measurements  on  the  CF3I  photodissociation  laser.  The  second  is  a  "pump  and  probe" 
apparatus  which  uses  a  tunable  diode  laser  to  measure  unloaded  gain  of  the  cell  used  in 
the  laser  setup.  The  following  is  a  detailed  description  of  each  apparatus  including  both 
equipment  and  measurement  technique. 

The  laser  apparatus  is  seen  in  Figure  3-1.  The  pump  source  is  a  Queztec  excimer 
laser  with  a  KrF  fill.  This  gives  a  pump  source  of  around  200  mJ  of  unpolarized  248 
nm  light.  The  beam  is  apertured  to  a  1.3  cm  by  2.8  cm  rectangle  to  transversely  couple 
into  a  cell  of  CF3I  through  UV  grade  water-free  quartz  windows.  A  schematic  drawing 
of  the  stainless  steel  cell  is  seen  in  Figure  3-2.  The  nature  of  CF3I  is  such  that  when  it 
is  photolyzed,  Ij  forms  in  the  cell.  Thus  the  system  either  has  to  be  flowed  or  evacuated 
between  photolysis  events.  The  cell  is  designed  for  either;  however,  I  decided  to  use  a 
static  fill  for  each  measurement.  Between  each  photolysis  event,  an  Alcatel  pump  and 
cold  trap  are  used  to  evacuate  the  cell  below  0.030  Torr.  This  pressure  is  sufficiently 
low  since  the  CF3I  fills  range  between  10  -  100  Torr. 

The  amount  of  248  nm  light  which  makes  it  through  the  aperture  and  through  the 
cell  is  measured  with  an  ED-500  Gentec  joulemeter  on  the  opposite  side  of  the  cell.  This 
arrangement  allows  us  to  measure  the  amount  of  UV  energy  deposited  into  the  CF3I. 
With  no  CF3I  in  the  cell,  about  175  mJ  of  248  nm  light  make  it  through  the  aperture  and 
the  quartz  windows.  Any  difference  between  energy  measured  without  CF3I  in  the  cell 
and  energy  measured  with  CF3I  present  can  be  attributed  to  photodissociation.  The 
temporal  dependence  of  the  excimer  pulse  is  measured  using  an  FND-IOOQ  fast  detector. 
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QUEZTEC  EXCIMER 


Figure  3-2  CF3I  Cell  Schematic 


This  detector  is  sufficiently  fast  enough  to  measure  the  18  ns  FWHM  excimer  pump 
pulse.  The  detector  is  also  equipped  with  a  quartz  window  to  allow  transmission  of  248 
nm  light.  The  detector  is  placed  at  an  angle  such  that  it  picks  up  the  excimer  laser  pulse 
without  saturating. 

Energy  from  the  gain  medium  is  extracted  orthogonal  to  the  pump  laser  through 
a  1  cm  circular  aperture.  The  aperture  defines  a  specific  extraction  volume.  The  cell 
windows  in  the  lasing  direction  are  made  of  water-free  quartz  and  are  oriented  at 
Brewsters  angle  for  maximum  transmission  of  1.315  ^m  light  [65]: 

tan0B  =  —  -  0B  =  tan-‘  =  55.3526*  (3.1-1) 


The  resonator  mirrors  are  placed  in  a  stable  hemispherical  configuration.  The  high 
reflector  is  designed  to  maximize  reflectivity  at  1.315  fim  and  has  a  radius  of  curvature 
of  10  meters.  The  outcoupler  is  a  flat  («»  radius  of  curvature)  with  a  specified 
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reflectivity  at  1.315  /xm.  The  spacing  between  the  mirrors  never  exceeds  10  meters;  thus 
the  resonator  is  stable.  For  most  measurements  the  mirror  spacing  is  on  the  order  of  16 
cm. 

Infrared  energy  extracted  from  the  laser  is  measured  on  a  sensitive  Laser 
Precision  joulemeter  (Model  RJP-735)  capable  of  measuring  microjoules.  The  temporal 
dependence  of  the  laser  pulse  is  monitored  by  taking  8%  of  the  1.315  /xm  light  off  with 
a  microscope  slide,  passing  it  through  a  neutral  density  filter,  and  focussing  the  reduced 
signal  onto  a  small  area  fast  detector.  The  fast  detector  for  the  1.315  /xm  light  is  an 
Electro-Optics  PD20  ultra-fast  detector  capable  of  measuring  a  4  GHz  bandwidth.  Both 
the  FND-1(X)Q  and  the  PD20  detectors  are  fed  into  a  Tektronics  DSA  602  Digital 
Oscilloscope  with  an  analog  bandwidth  of  500  MHz.  The  scope  is  set  to  trigger  off  the 
excimer  pulse.  Noise  generated  by  the  excimer’s  thyratrons  firing  was  a  significant 
problem.  Coaxial  cables  leading  from  the  fast  detectors  to  the  scope  were  double 
shielded  and  aluminum  foil  was  used  to  cover  areas  such  as  switches  and  connectors 
where  excimer  noise  may  couple  into  the  lines.  The  detectors  were  both  run  off  batteries 
inside  shielded  boxes,  and  a  ground  loop  isolation  transformer  was  used  to  isolate  the 
oscilloscope. 

A  special  procedure  for  alignment  of  the  resonator  mirrors  and  the  fast  detector 
was  developed  using  a  1.315  /xm  diode  laser  Figure  3-3.  The  laser  precision  joulemeter 
is  removed  and  a  collimated  diode  laser  beam  at  1.315  /xm  is  sent  back  through  the 
microscope  slide  beam  splitter  into  the  resonator.  The  front  mirror  is  removed  and  the 
back  mirror  is  aligned  by  using  an  IR  sensitive  card  to  direct  the  beam  back  into  itself. 
Precise  alignment  is  achieved  by  watching  the  diode  laser’s  spectrum  change  as  feedback 
from  the  mirror  alters  its  lasing  characteristics.  The  front  mirror  is  aligned  in  a  similar 
manner.  A  30dB  faraday  isolator  is  used  in  the  diode  laser  path  to  keep  the  feedback 
from  damaging  the  diode.  Once  the  resonator  is  aligned,  the  PD20  fast  detector  must 
be  aligned. 

The  small  area  of  the  PD20  detector  makes  it  quite  difficult  to  align.  The 
alignment  is  accomplished  by  placing  a  chopper  in  the  diode  laser  path,  removing  the 
neutral  density  filter  from  between  the  beamsplitter  and  the  focussing  lens,  and  adding 
a  x20  amplifier  between  the  PD20  and  the  scope.  The  system  is  aligned  when  the  small 
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re  3-3  Alignment  Setup  for  I*  Laser 


chopped  signal  from  the  diode  laser  is  optimized  on  the  oscilloscope.  To  make  the 
measurement,  the  diode  laser  is  turned  off,  the  laser  precision  joulemeter  and  the  neutral 
density  filter  are  returned  to  their  proper  places,  the  x20  amplifier  is  removed,  and  the 

scope  is  set  to  trigger  off  the  excimer  pulse.  The  resulting  acquisition  is  seen  in  Figure 
3-4. 


Figure  3-4  Measured  T  Laser  Intensity 


The  first  pulse  is  the  excimer  pump  pulse  measured  with  the  FND-IOOQ  detector.  The 
second  pulse  is  the  Iodine  lase  pulse  measured  with  the  PD20  detector.  This  pulse  is 
inverted  since  the  PD20  is  a  negative  going  detector. 

The  experimental  apparatus  which  involves  using  a  tunable  diode  laser  to  measure 
small  signal  gain  is  seen  in  Figure  3-5.  The  same  pumping  configuration  and  cell  as  in 
the  laser  setup  is  used.  The  resonator  mirrors  are  removed  and  an  InGaAsP  diode  laser 
at  1.315  /im  in  a  frequency  narrowed  single  mode  operation  is  locked  on  one  of  the  six 
radiative  transitions  of  atomic  iodine.  The  diode  laser  is  chopped  for  alignment  purposes 
and  to  provide  a  baseline  for  the  gain  measurement.  The  chopper  is  removed  while  the 
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Figure  3-5  Gain  Measurement  Setup 


gain  measurement  is  being  made.  Amplification  within  the  cell,  which  basically  amounts 
to  gain  plus  loss,  is  measured  by  comparing  the  change  in  the  diode  laser  signal  to  the 
baseline  established  by  the  chopper.  If  the  baseline  established  by  the  chopper  is  AVb 
and  the  amplification  by  the  gain  medium  within  the  cell  is  AVg  then  the  small  signal 
gain  plus  loss  follows  Beer’s  law: 


-  AV,  ^ 


AV. 


««  =  - 

“  L. 


In 


/  AVg  +  AV^N 
AV„ 


(3.1-1) 


where  is  gain  plus  loss  and  Lg  is  the  2.8  cm  gain  length. 

The  most  critical  part  of  this  apparatus  is  the  tunable  diode  laser  illustrated  in 
Figure  3-6.  The  diode  laser  used  is  a  3-6  mWatt  InGaAsP  multimode  diode  made  by 
Hitachi.  The  model  number  is  the  HLP  5400,  wavelength  selected  at  the  factory  to  lase 
at  1.318  nm  at  25°C.  The  diode  was  selected  at  this  wavelength  and  temperature  for  a 


Figure  3-6  Tunable  Diode  Laser  Setup 
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specific  reason.  By  lowering  the  temperature  and  adjusting  the  current  of  the  diode 
selected,  it  can  be  operated  close  to  the  threshold  right  around  1.315  /xm.  The 
temperature  controller,  current  source,  and  laser  diode  mount  used  to  impose  these 
conditions  on  the  diode  were  made  by  ILX  Lightwave  specifically  for  laser  diode  control. 
At  about  18  "C  and  25  mA  the  wavelength  selected  diode  laser  spectrum  overlaps  the  3-4 
transition  in  atomic  iodine.  This  is  seen  by  an  absorption,  as  part  of  the  diode  laser  is 
directed  up  through  a  heated  iodine  reference  cell. 

The  heated  iodine  reference  cell  is  a  glass  cell  with  molecular  iodine  crystals 
heated  to  about  600®C.  At  this  temperature  the  iodine  no  longer  exists  as  a  dimer,  but 
rather  as  atomic  iodine.  A  detector  placed  at  the  opposite  end  of  the  cell  is  used  to  sense 
absorption  of  the  diode  laser  as  it  turns  through  the  atomic  iodine  spectrum. 

Once  the  transition  of  interest  is  found,  feedback  from  a  tech  optics  fabry-perot 
interferometer  is  used  to  force  the  diode  to  narrow  and  suppress  the  side  modes  to  where 
the  diode  is  functioning  in  virtually  a  single  mode  operation.  The  spectrum  of  the  diode 
laser  is  observed  on  another  tech-optics  fabry-perot  interferometer.  A  30dB  Faraday 
isolator  is  placed  between  the  diode  laser  and  the  experiment  to  insure  that  feedback  from 
the  experiment  does  not  affect  diode  laser  operation.  A  60dB  Faraday  isolator  is  placed 
between  the  diode  laser  and  the  monitoring  fabry-perot  for  the  same  purpose.  The 
feedback  fabry-perot  can  thus  be  solely  adjusted  to  optimize  the  laser  diode. 

Noise  from  the  excimer  laser  is  a  major  problem  in  this  apparatus.  The  diode 
laser  electronics  are  highly  susceptible  to  electromagnetic  noise.  In  the  end,  the  brute 
force  method  was  used  to  reduce  the  noise:  the  entire  laser  diode  setup  was  encased  in 
a  make-shift  Faraday  cage  of  copper  and  aluminum  along  with  a  Topaz  ground  loop 
isolation  transformer  as  a  power  source.  The  result  was  that  the  noise  was  reduced 
sufficiently. 

Figure  3-7  shows  an  example  of  typical  gain  measurements  made  using  this 
apparatus.  The  top  signal  is  the  change  in  flux  seen  by  the  detector  due  to  amplification 
by  the  cell.  This  change  is  AVg.  The  bottom  signal  is  the  baseline  signal  generated  by 
the  chopper  measured  prior  to  AVg.  This  change  is  AVg.  Applying  these  measurements 
to  Equation  3.1-1  we  get  the  small  signal  gain  plus  loss  on  the  transition  selected  by  the 
diode  laser. 
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Figure  3-7  Typical  Gain  Measurement 


3.2  I*  Laser  Data 

A  large  amount  of  data  was  taken  using  the  laser  apparatus  of  Figure  3-1. 
Several  different  parameters  in  the  laser  device  can  be  varied  to  alter  lasing 
characteristics.  These  parameters  include  mirror  reflectivity,  CFjI  pressure,  cavity 
length,  and  gain  length.  Measurements  were  performed  several  times  on  different  days 
to  insure  reproducibility.  The  following  set  of  measurements  was  taken  4  November 
1992. 

The  first  group  involves  using  a  CF3I  pressure  of  60  Torr,  a  cavity  length  of  16 
cm,  while  varying  the  outcoupler  reflectivity.  A  set  of  outcouplers  were  measured  by 
the  metrology  center  at  the  Phillips  Laboratory.  The  set  includes  reflectivities  of  98.8%, 
96.415%,  89.5%,  85.8%,  and  80.1%.  Lasing  did  not  occur  at  80.1%.  Plots  of  pulses 
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R  =  89.5%  E  =  0.269mJ  t  =  320ns  R  =  85.8%  E  =  0.150inJ  t  =  690ns 


Figure  3-8  Varying  Outcoupler  Reflectivity 
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P  =  10  Torr  Ed  =  29mJ 
E  =  0.124niJ  T  =  500ns 


Figure  3-9  Varying  CF3I  Pressure 


P  =  20  Torr  Ed  =  52inJ 
E  =  O.ailmJ  T  =  270ns 


P  =  40  Torr  Ed  =  90inJ 
E  =  0.520mJ  T  =  230ns 


in  the  CF3I  also  changes.  Pressures  are  varied  between  10  Torr  and  100  Torr  in  steps 
of  10  Torr.  Figure  3-9  shows  the  resulting  laser  intensities  along  with  cavity  buildup, 
laser 


P  =  50  Torr  Ed  =  104mJ  P  =  60  Torr  Ed  =  115mJ 

E  =  O.SlOmJ  T  =  240ns  E  =  0.446mJ  t  =  260ns 


P  =  70  Torr  Ed  =  126mJ  P  =  80  Torr  Ed  =  135mJ 

E  =  0.405mJ  T  =  290ns  E  =  0.360mJ  t  =  3S0ns 


Figure  3-9  Varying  CF3I  Pressure  (continued) 
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Figure  3-9  Varying  CF3I  Pressure  (continued) 


The  third  group  of  laser  measurements  involves  varying  the  cavity  length.  The 
pressure  is  kept  constant  at  60  Torr  and  the  outcoupler  is  96.415%.  The  cavity  length 
is  increased  from  16  cm  to  112  cm  in  steps  of  16  cm.  Figure  3-10  shows  these  plots 
with  cavity  buildup  time  and  pulse  energy  listed  below  each. 

The  final  set  of  laser  measurements  performed  on  4  November  1992  involved 
decreasing  the  gain  length  of  the  laser  from  2.8  cm  to  where  it  ceased  to  lase  (Figure  3- 
11).  The  outcoupler  is  fixed  at  96.415%  and  the  gas  pressure  is  kept  at  60  Torr.  Pulse 
energy,  cavity  build-up  time,  and  energy  deposited  in  the  CF3I  are  listed  below  each  plot. 
Data  was  taken  every  0.2  cm;  however,  for  practical  reasons  only  selected  plots  are 
shown. 
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D  =  16  E  =  0.446mJ  r  =  260ns 


D  =  32cm  E  =  0.591inJ  r  =  510ns 


D  =  48cm  E  =  0.463mJ  r  =  750ns  D  =  64cm  E  =  0.332mJ  r  == 


Figure  3-10  Varying  Cavity  Length 
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D  =  80  E  =  0.474nxr  r  =  1.25/iS 


D  =  112cm  E  =  0.508mJ  r  =  1.81/is 


Figure  3-10  Varying  Cavity  Length  (continued) 


D  =  96cm  E  =  0.432mJ  r  =  1.53^s 


Summary  of  Measurements 


Lj  =  2.8cm  Ed  =  lllmJ 
E  =  0.473mJ  r  =  260ns 


=  2.2cm  Ed  =  93.4mJ 
E  =  0.353mJ  r  =  400ns 
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L,  =  1.8cm  Ed  =  76.6inJ 
E  =  0.153mJ  T  =  940ns 


L,  =  1.4cm  Ed  =  56.2mJ 
E  =  O.OSSmJ  T  =  l.Slus 


Figure  3-11  Varying  Gain  Length 


3.3  r  Gain  Data 


Gain  measurements  made  with  apparatus  in  Figure  3-5  were  limited  to  a  single 
pressure  of  60  Torr.  Gain  was  measured;  however,  on  all  six  radiative  transitions  in  the 
atomic  Iodine  spectrum.  These  measurements  were  repeated  to  insure  reproducibility. 
The  main  problem  encountered  was  that  the  diode  laser  could  not  be  forced  into  true 
single  mode.  Feedback  narrowed  the  diode  laser  lines  and  partially  suppressed  the  side 
modes,  but  several  side  modes  still  existed.  The  effect  of  the  side  modes  on  the  intensity 
measurement  can  be  taken  into  account  by  factoring  the  intensity  in  the  side  modes  into 
the  final  gain  measurement.  Since  the  intensity  of  each  mode  is  proportional  to  the  area 
under  the  mode,  a  correction  factor  can  be  determined  by  measuring  the  area  under  the 
side  modes.  This  is  quickly  accomplished  in  Figure  3-12  by  the  digital  oscilloscope. 
Figure  3-12  shows  four  sets  of  two  plots  to  compare  area  under  each  of  the  diode  laser 
modes.  Each  set  shows  a  plot  of  the  mode  structure  of  the  diode  laser  within  the  free 
spectral  range  of  the  interferometer  above  a  plot  of  one  of  the  individual  modes. 

An  equation  can  be  derived  to  determine  how  to  factor  in  the  effect  of  the  side 
modes.  The  assumption  is  that  the  area  under  each  mode  is  proportional  to  the  intensity 
of  the  mode.  Figure  3-13  shows  the  intensities  before  and  after  the  cell  assuming  the 
strongest  mode  of  the  diode  laser  is  on  the  radiative  transition  being  measured.  The  ratio 
of  the  intensity  after  the  cell  over  the  intensity  before  the  cell  becomes: 

Solving  this  for  gain  plus  loss  a^: 


+ 1 

.ii 

Thus  with  this  equation,  gain  measurements  can  be  corrected  to  account  for  the  fact  that 
the  diode  laser  was  not  operating  in  a  true  single  mode. 
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Figure  3-12  Diode  Laser  Mode  Structure 
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Figure  3-13  Intensity  Amplified  by  Cell 


Figure  3-14  shows  gain  measurements  made  for  all  six  radiative  transitions  on  8 
October  1992  for  a  CF3I  pressure  of  60  Torr.  Amplitude  scales  and  time  scales  vary 


3-4  Transition  3-3  Transition 


Figure  3-14  Gain  Measurements  (8  OCT  92) 
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2-2  Transition 


2-1  Transition 


Figure  3-15  Transient  Gain  Measurements  (9  OCT  92) 


2-2  Transition 


2-1  Transition 


Figure  3-15  Transient  Gain  Measurements  (9  OCT  92)  (continued) 
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for  a  pressure  of  60  Torr.  The  time  scale  is  displayed  with  the  excimer  photodissociation 
pulse  to  show  how  gain  occurs  on  the  time  scale  of  the  photolysis. 
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4.  Results  Am)  Discussion 


4.1  Comparison  of  Gain  Measurements 

A  theoretical  value  for  the  small  signal  gain  can  be  determined  from  a 
measurement  of  the  amount  of  UV  energy  deposited  in  the  CF3I.  Knowing  the  amount 
of  the  energy  deposited  in  the  CF3I  and  that  the  photon  yield  is  100%,  the  number  of  I* 
produced  can  be  determined,  and  from  this  a  maximum  small  signal  gain  can  be 
calculated.  The  expression  for  the  small  signal  gain  on  line  center  of  the  3-4  transition 
is: 


a 


34 


A 

■  ^  (N3 

87t  \  ^ 


(2.2-2) 


The  Einstein  A  coefficient  for  the  3-4  transition  in  atomic  Iodine  is  5.0  /s  and  the 
wavelength  X  =  1.315  ^m.  The  absorption  cross  section  of  CF3I  at  248  nm  is  a  =  3 
X  10  ‘®  cm^  At  60  Torr  the  number  density  of  CF3I  is  1.93  X  10'*  atoms/cc.  Using 
Beers  law  and  transversely  pumping  2  cm  of  CF3I  we  find: 


^0  _„-o[CF3l]« 

_  C 

h 


Ei 


=  e-^ '5*  =0.314 


(2.2-69) 


The  energy  absorbed  by  the  CF3I  is  the  difference  between  the  energy  incident  on  the 
cell,  and  the  energy  measured  after  the  cell.  If  the  excimer  pump  energy  is  175  mJ  the 
energy  deposited  in  the  60  Torr  of  gas  is  120  mJ.  Figure  4-1  shows  the  measured  UV 
energy  deposited  in  the  gas  plotted  on  top  of  the  theoretically  predicted  Beer’s  Law  curve 
for  a  pump  energy  of  175  mJ. 
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Theoretical  ■  Measured 


Figure  4-1.  UV  Energy  Deposited  in  the  CF3I. 


To  define  useful  gain,  the  energy  absorbed  within  the  extraction  volume  was 
considered.  For  60  Torr  and  an  extraction  aperture  with  a  diameter  of  1  cm  centered  in 
the  gain  region,  the  energy  absorbed  within  the  extraction  volume  is  34.79  mJ.  The 
density  of  excited  Iodine  atoms  within  the  extraction  volume  is  calculated  to  be  1.99  x 
10*®  atoms/cc.  The  line  shape  function  i{y)  can  be  approximated  by  a  Lorentzian.  At 
line  center: 

W  '  0-2-W) 

71  Av 


Where  Av  is  the  sum  of  the  products  of  the  partial  pressure  of  each  species  and  their 
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broadening  coefficients.  Since  the  contribution  from  I  and  I*  is  small,  Av  can  be 
approximated  by  just  using  the  contribution  from  CF3I.  For  a  CF3I  pressure  of  60  Torr 
and  pressure  broadening  coefficient  of  11.3  MHz/Torr  we  get  Av  =  678  MHz.  The 
small  signal  gain  for  the  3-4  transition  is  then  calculated  to  be  3. 72% /cm.  Since  no 
losses  are  taken  into  account,  this  number  can  be  considered  a  theoretical  maximum  value 
for  the  small  signal  gain  within  the  extraction  volume  for  the  given  pumping  conditions. 

Gain  measurements  using  the  tunable  diode  laser  are  shown  in  Figure  3-14. 
Comparing  the  change  in  intensity  to  the  reference  signal  the  gain  plus  loss  for  the  3-4 
transition  in  the  cell  was  found  to  be  between  2.4%/cm  to  3.1  %/cm.  This  was  done  for 
each  of  the  six  possible  laser  transitions  (Table  4-1).  Figure  4-2  shows  the  resulting  gain 


Transition 

Theory 

2-3 

0.353 

2-2 

0.466 

2-1 

0.375 

3-4 

1.000 

3-3 

0.436 

3-2 

0.130 

Measured  Normalized 

1.265  /foi3lO’i--'ii 

1.819  0.489 

1.600  0.440 

3.720  1.000 

1.525  0.410 

0.472  0.127 


Table  4-1.  Iodine  Gain  Measurements 


measurements  normalized  to  the  3-4  transition  and  plotted  on  top  of  a  theoretical 
spectrum  broadened  with  a  Voigt  lineshape  function.  An  interesting  phenomena  that  was 
observed  is  seen  in  Figure  3-15.  Comparing  transitions  from  the  upper  F=3  level  to  the 
lower  F=2  level  it  is  seen  that  gain  appears  on  all  transitions  as  the  excimer 
photodissociates  the  CF3I.  This  demonstrates  that,  on  the  time  scale  of  the  experiment, 
population  must  be  bom  statistically  in  the  upper  two  levels  of  the  hyperfme  structure. 

The  second  set  of  gain  measurements  involved  measuring  the  energy  extracted 
from  the  I*  laser  while  varying  the  reflectivity  of  the  outcoupling  mirror.  This  data  is 
presented  in  Figure  4-3  in  terms  of  I  laser  energy  and  outcoupling  mirror  transmittance. 
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Iodine  Gain  Spectrum 


Figure  4-2  Normalized  Gain  Plotted  on  Theoretical  Spectrum 


At  the  peak  of  this  curve,  laser  losses  are  matched  optimally  to  the  geometric  parameters 
of  the  laser  to  give  a  maximum  output  energy.  As  the  transmission  of  the  outcoupler  is 
decreased  laser  losses  play  a  greater  role  and  force  the  energy  to  drop.  As  the 
outcoupler  transmission  is  increased,  the  threshold  for  lasing  increases,  and  the  extracted 
energy  drops.  In  the  limit  as  the  energy  goes  to  zero,  the  small  signal  gain  equals  the 
threshold  gain,  which  can  be  expressed  in  terms  of  the  geometric  parameters  of  the  laser: 
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Figure  4-3  I’  Laser  Energy  versus  Outcoupler  Transmittance 


If  we  assume  our  losses  ^  are  small,  we  can  calculate  our  gain  to  be  bounded  between 
2.7%/cm  and  3.8%/cm  By  extrapolating  we  can  get  a  nominal  value  of  81.5%  for  the 
outcoupler  reflectivity  which  gives  us  a  gain  plus  loss  of  3.65 %/cm.  It  is  important  to 
note  here  that  even  if  there  is  some  ambiguity  in  the  exact  values  of  energy  measured, 
the  fact  that  the  laser  lased  at  R2  =  85.8%  and  did  not  lase  at  R2  =  81%  is  enough  to 
bound  the  gain  plus  loss. 

4.2  Qualitative  Comparison  of  Data  to  Rate  Equation  Model 

In  the  last  section  we  saw  a  quantitative  comparison  between  small  signal  gain; 
theoretically  calculated,  and  measured  using  several  techniques.  It  is  important  to  pin 
down  a  specific  parameter  of  the  laser  system  and  understand  it  in  a  quantitative  sense, 
but  a  deeper  understanding  of  the  system  can  be  achieved  by  a  comparison  of  the 
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measured  laser  pulse  characteristics  to  the  full  rate  equation  model. 

The  following  comparisons  are  introduced  in  a  qualitative  sense.  A  quantitative 
analysis  will  follow  shortly  after,  using  a  select  few  of  the  data,  bounded  by  theoretical 
error  bars.  The  qualitative  analysis  will  contain  a  study  of  outcoupling  mirror 
reflectivities,  various  pressures,  and  finally  varying  cavity  lengths.  In  the  following 
plots,  traces  marked  with  numbers  1  or  2  are  measured  while  traces  marked  with  3  or 
4  are  theoretical.  Traces  marked  1  or  3  are  the  excimer  pump  pulses  and  traces  marked 
2  or  4  are  the  T  laser  pulses.  They  are  more  easily  distinguished  by  the  theoretical 
pulses  being  smooth  and  the  measured  pulses  being  rough  due  to  noise. 

Figure  4-4  compares  theoretical  pulses  to  measured.  Pressure  is  held  constant  at 
60  Torr  and  cavity  length  is  16  cm.  The  Model  assumes  losses  are  negligible  for  this 
set  of  calculations.  By  adding  in  losses,  the  comparison  between  pulse  energy  is  more 
favorable,  but  calculated  pulse  shape  and  cavity  buildup  time  do  not  match  the  measured 
data.  The  experimental  pulse  shape  for  the  85.8%  outcoupler  is  distorted  most  likely  due 
to  the  fact  that  it  is  lasing  close  to  threshold.  Near  threshold  laser  action  is  far  from 


Figure  4-4  Qualitative  Comparison  of  Laser  Pulses  for  Various  Outcoupling  Mirrors 
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R  =  89.5% 


R  =  85.8% 


Figure  4-4  Qualitative  Comparison  of  Laser  Pulses  for  Various  Outcoupling  Mirrors  (continued) 


Figure  4-5  Qualitative  Comparison  of  Laser  Pulses  for  Varying  Pressures 
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P  =  90  Torr 


P  =  100  Ton- 


Figure  4-5  Qualitative  Comparison  of  Laser  Pulses  for  Varying  Pressures  (continued) 


no 


ideal. 


Figure  4-5  compares  theory  to  experiment  as  pressure  ranges  from  10  Torr  out 
to  100  Torr.  Cavity  length  is  16  cm  and  outcoupler  reflectivity  is  96.4%.  Modeling 
again  assumes  no  losses.  It  is  important  to  see  that  for  low  pressures  the  pulse  is  wide 
and  the  buildup  time  is  large.  As  the  pressure  increases,  the  pulse  width  decreases,  and 
the  buildup  time  shortens.  After  30  or  40  Torr  the  buildup  time  increases  again  and  so 
does  the  pulse  width. 

Figure  4-6  shows  how  the  lasing  characteristics  change  with  cavity  length. 
Pressure  is  fixed  at  60  Torr  and  outcoupler  reflectivity  is  96.4%.  The  model  assumes 
no  losses.  As  it  was  discussed  in  Section  2.4,  cavity  length  variations  affect  buildup  time 
and  pulse  width.  Figure  4-6  show  that  theoretical  and  measured  buildup  times  and  pulse 
widths  compare  favorably  as  well  as  the  actual  shape  of  the  pulse.  The  last  two  plots  in 
Figure  4-6  summarize  the  effect  nicely.  From  this  set  of  comparisons  it  is  seen  that  both 
theory  and  experiment  compare  favorably  in  a  qualitative  sense.  The  rate  equation 
model,  assuming  no  losses,  produces  theoretical  laser  pulses  which  act  similar  to  the 


Figure  4-6  Qualitative  Comparison  of  Laser  Pulses  for  Varying  Cavity  Lengths 
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Figure  4-6 


D  =  80  cm 


D  =  96  cm 


Qualitative  Comparison  of  Laser  Pulses  for  Varying  Cavity  Lengths  (continued) 
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Summary  of  Theoretical 


Summary  of  Measured 


Figure  4-6  Qualitative  Comparison  of  Laser  Pulses  for  Varying  Cavity  Lengths  (continued) 
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measured  intensities  as  parameters  are  varied.  The  next  section  will  deal  with  a 
qualitative  comparison,  introducing  error  bars  on  theory  and  experiment,  and  explaining 
any  discrepancies  between  the  two. 

4.3  Error  Analysis  and  Quantitative  Discussion  of  I*  Laser  Data  and  Rate 
Equation  Model 

Looking  back  and  comparing  Figure  2-26  to  Figure  4-3  we  see  that  there  is  a 
fairly  large  disagreement  between  theoretical  and  measured  intensity  despite  the 
reasonable  qualitative  comparison  of  the  last  section.  The  purpose  of  this  section  is  to 
analyze  possible  causes  of  this  discrepancy  and  suggest  reasonable  modifications  to  the 
rate  equation  model  to  bring  theory  into  line  with  experiment.  This  quantitative 
discussion  will  include  an  error  analysis  which  will  show  how  possible  sources  of 
uncertainty  influence  the  final  solution  of  the  rate  equation  model. 

The  first  step  in  any  quantitative  analysis  is  to  determine  all  possible  sources  of 
error.  Both  the  experiment  and  the  rate  equation  model  have  many  variables  which  must 
be  considered.  The  code  has  been  developed  and  tested  over  a  period  of  several  years 
and  the  approximations  and  assumptions  which  have  made  it  numerically  tractable  have 
been  discussed  and  justified  in  Chapter  2.  Despite  this  thoroughness  there  is  still  the 
possibility  that  something  may  have  been  overlooked.  Numerical  accuracy  of  the 
equation  solver  must  be  considered,  as  well  as  uncertainty  in  the  input  parameters  to  the 
code.  One  thing  that  was  not  discussed  in  Chapter  2  but  which  may  have  bearing  on  the 
theoretical  analysis  is  the  mode  structure  of  the  laser  and  the  simplistic  resonator  model 
assumed  by  the  code.  Experimental  technique  has  also  been  perfected  over  a  period  of 
several  years  and  reproducibility  has  been  achieved  through  the  method  of  exhaustion. 
Error  which  must  be  considered  for  the  experiment  may  include  measurement  device 
precision  and  accuracy  and  the  idealness  of  experimental  conditions  such  as  gas  purity, 
beam  quality,  and  mirror  reflectivity. 

The  first  source  of  error  that  I  wish  to  discuss  is  the  numerics  involved  in  solving 
sixteen  stiff  coupled  differential  equations.  Stiffness  is  a  term  used  to  describe  the 
behavior  of  a  system  of  differential  equations.  Fundamentally  this  can  be  described  by 
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how  quickly  the  solution  changes  with  respect  to  the  ordinary  time  increment  of  the 
integrator  or  solver.  A  more  in-depth  discussion  about  stiffness  can  be  found  in  [66]. 
The  system  of  equations  used  in  the  model  is  definitely  stiff.  The  I*  laser  pulse  builds 
rapidly  out  of  the  noise  and  this  must  be  taken  into  account  by  the  time  step  of  the 
integration.  The  DLSODE  solver,  mentioned  in  Section  2.4,  uses  the  Adams-Bashford 
technique  to  compensate  for  stiffness.  This  technique  basically  uses  the  Jacobian  of  the 
system  of  equations  to  adjust  the  time  step  used  during  stiff  portions  of  the  integration. 
There  are  two  limits  in  which  the  numerics  of  the  problem  make  it  difficult  for  the  solver 
to  integrate.  One  limit  is  when  outcoupling  losses  are  close  to  the  threshold  gain,  and 
the  other  is  when  outcoupling  losses  and  other  internal  losses  are  close  to  zero.  The  first 
case  is  seen  in  Figure  2-27.  The  second  case  is  seen  in  the  variation  from  linearity  of 
the  plot  in  Figure  2-19b  as  plot  approaches  the  discontinuity  at  zero  outcoupled  loss. 
Except  at  these  limits,  the  solver  appears  to  behave  well. 

There  are  many  parameters  which  serve  as  inputs  to  the  model.  These  are  seen 
in  Table  2-13.  Gain  length  and  cavity  length  are  precise.  An  aperture  is  used  to  define 
gain  length  and  the  mirror  spacing  of  the  stable  resonator  is  closely  measured.  Small 
variations  (1-2%)  in  either  parameter  do  not  have  a  significant  effect  on  the  output  of  the 
code.  Spatial  linearity  of  the  pump  beam  incident  on  the  gain  region  is  questionable. 
Care  was  taken  to  use  the  aperture  to  select  what  appeared  to  be  a  fairly  linear  region 
of  the  pump  beam.  A  bum  mark  from  the  pump  laser  is  seen  in  Figure  4-7.  The  pump 


Figure  4-7  Spatial  Characteristics  of  Pump  Pulse 


energy  measurement  is  fairly  reliable.  Pump  pulse  energy  measurements  by  three 
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different  joulemeters  compared  favorably.  The  meters,  however,  are  still  only  accurate 
to  within  10%.  The  temporal  characteristics  of  the  photodissociation  pulse  are  not  quite 
the  Gaussian  assumed  by  the  code,  but  differences  should  have  insignificant  effect  on  the 
final  comparison  since  photodissociation  occurs  some  time  prior  to  lasing.  Out  of  all  the 
pump  pulse  errors  mentioned  thus  far,  the  10%  uncertainty  of  the  total  photodissociation 
energy  seems  like  it  would  have  the  largest  influence  on  the  final  solution.  Figure  4-8 
shows  that  as  excimer  energy  is  varied,  the  extracted  energy  changes  as  well  as  the 
cavity  buildup  time.  A  distributed  loss  of  0. 1  %/cm  is  assumed  as  well  as  100%  quantum 
yield.  Data  is  plotted  as  solid  black  triangles.  Quantitatively  the  extracted  energy  is 
brought  into  better  agreement  while  cavity  buildup  time  agreement  is  made  worse.  Most 
likely,  this  error  alone  cannot  account  for  the  difference  between  data  and  theory. 

Iodide  pressure  is  another  input  parameter  which  is  known  with  a  large  degree  of 
certainty.  A  frequently  calibrated  set  of  100  Torr  baratron  heads  are  used  to  determine 
the  pressure  to  within  1  % .  There  is  a  definite  change  in  pressure  (and  temperature) 
immediately  upon  photodissociation  which  is  hardly  noticeable  since  it  returns  to  normal 
upon  recombination.  This  could  introduce  an  acoustic  noise  within  the  cell,  but  the  size 
of  the  cell  dictates  that  the  acoustic  wave  be  on  the  order  of  6  kHz.  This  is  much  slower 
than  the  time  scale  of  the  experiment.  Thermal  velocities,  as  mentioned  earlier  in  the 
beginning  of  Section  2.4,  reach  a  Boltzmann  distribution  on  a  much  shorter  time  scale 
than  the  experiment  due  to  the  pressure  range  under  consideration.  At  lower  pressures 
thermalization  of  velocities  could  become  a  significant  problem.  At  17  Pa  of  n-C3F7l  it 
takes  about  5  /is  to  reach  a  Boltzmann  velocity  distribution  [67]. 

The  r  quantum  yield  is  another  input  parameter  in  question.  Measured  values  of 
this  are  seen  in  Table  2-11  to  vary  between  75%  to  98%.  I  would  guess  that  this 
difference  in  measured  quantum  yields  is  due  to  differences  in  the  purity  of  the  gasses 
used.  In  the  early  stages  of  my  experiment  I  found  a  difference  in  I*  laser  energy 
between  two  bottles  of  CF3I  purchased  from  the  same  company.  After  this  observation, 
all  measurements  were  made  from  the  same  bottle  of  CF3I.  A  filter  using  copper  wool 
was  also  added  before  the  bottle  to  remove  possible  iodide  impurities.  Attempts  to  use 
a  freeze  thaw  method  of  purification  were  considered  but  never  made.  This  would  be 
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Figure  4-8  Error  Bounds  Due  to  Pump  Pulse  Energy  Uncertainty 
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highly  recommended  for  future  work  if  precise  quantitative  measurements  are  desired  and 
the  time  and  facilities  are  available.  Figure  4-9  Shows  that  the  influence  of  varying  the 
quantum  yield  is  similar  to  that  of  varying  the  pump  energy.  This  is  intuitive  since  both 
contribute  to  the  total  I*  population.  The  two  errors  might  have  a  compensating  effect 
on  one  another.  Most  likely,  error  here  can  also  be  dismissed  since  there  is  a  tradeoff 
in  agreement  between  energy  an  cavity  buildup  time. 

The  hyperfine  relaxation  rate  constants  are  input  parameters  which  are  not  very 
well  known.  The  influence  of  these  rate  constants  is  seen  mainly  in  the  T  laser  pulse 
shape.  Figure  4-10  shows  the  effect  of  varying  the  upper  level  relaxation  rate  constant. 
The  lower  level  relaxation  rate  constant  is  assumed  to  be  fast.  The  discrepancy  seen  in 
the  energy  plot  when  the  rate  constant  is  l.Ox  10'*°  cc/s  due  to  the  two  line  lasing  effects 
observed  in  Figure  2-22.  At  an  outcoupler  transmittance  less  than  about  5%  two  line 
lasing  does  not  occur,  but  greater  than  5  %  two  line  lasing  becomes  apparent.  Little  more 
than  an  estimate  is  known  of  the  hyperfine  relaxation  rates.  Observation  of  where  the 
two  line  lasing  occurs  may  be  suggested  as  a  method  for  determining  the  upper  level  rate 
constant.  For  now  we  must  assume  a  calculated  value  of  LSkIO"®  cc/s. 

Significant  parameters  within  the  laser  cell  which  introduce  error  include 
distributed  loss  and  window  transmission  loss.  Upon  photodissociation,  forms  in  the 
cell.  This  is  seen  after  several  shots  as  crystalline  deposits  on  the  cell  walls.  Quenching 
by  I2  is  slow  (2.2-46)  and  is  accounted  for  in  the  model,  but  absorption  of  UV  or  IR  light 
by  the  dimer  must  be  factored  into  the  code  as  a  loss  if  deposits  occur  on  windows  or  if 
residue  I2  remains  in  the  cell  from  previous  shots.  The  cell  is  evacuated  to  less  than 
0.050  Torr  between  shots  to  remove  residual  Ij.  It  was  noticed,  however,  after  about 
three  test  days  there  would  be  a  significant  drop  in  I*  laser  energy.  It  was  found  that  this 
could  be  attributed  to  I2  deposits  on  the  windows  which  could  not  be  removed  by 
vacuum.  These  deposits  can  be  modeled  with  a  window  transmission  loss  or  by 
distributing  it  over  the  cavity,  but  the  best  way  to  take  care  of  the  problem  to  ensure  the 
least  amount  of  error  in  modeling  is  to  clean  the  windows  before  every  test  day.  Since 
cleaning  the  windows  opens  the  cell  up  to  atmosphere  and  introduces  water  vapor 
(another  possible  distributed  loss  and  quencher!),  the  precautions  taken  were  to  clean  the 
windows  the  night  before  testing  and  let  the  system  pump  out  any  water  vapor  overnight. 
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Figure  4-10  Influence  of  Uncertainty  in  Hyperfine  Relaxation  Rate  Constant 
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A  heating  coil  was  used  to  "bake"  any  water  out  of  the  system.  As  it  was  seen  in 
Figures  2-26  and  2-27,  window  transmission  loss  and  distributed  loss  affect  laser 
performance  in  a  similar  manner,  thus  it  is  possible  to  lump  the  window  losses  into  the 
distributed  loss.  The  gain  of  Section  4.1  bounds  this  loss  to  be  less  than  1  %/cm.  A 
nominal  value  is  0.07  %/cm.  The  theoretical  calculations  of  Figure  2-26  suggest  that  it 
is  less  than  0.1  %/cm.  All  this  speculation  is  based  on  equation  4.1-1.  Figure  4-11 
shows  the  influence  of  adding  a  distributed  loss.  Similar  to  the  energy  and  yield 
uncertainty,  there  is  a  tradeoff  in  comparison  between  energy  and  buildup  time.  In 
addition  to  this,  baseline  calculations  give  a  very  reasonable  estimate  of  distributed  loss. 
Most  likely,  good  comparison  cannot  be  achieved  through  adjusting  our  distributed  loss. 

Error  introduced  outside  the  cell  but  still  within  the  resonator  can  be  described 
by  mirror  scattering  and  absorption  losses  and  accuracy  of  outcoupling  mirror 
reflectivities.  The  set  of  outcoupling  mirrors  was  measured  several  times  at  the  Phillips 
Laboratory  Metrology  lab.  A  list  of  transmissions  and  reflectivities  measured  for  some 
of  the  mirrors  at  1.315  fim  is  seen  in  Table  4-2.  From  these  values  a  scattering  plus 
absorption  loss  might  be  estimated,  except  for  the  fact  that  a  few  of  the  measurements 
hint  that  several  of  the  mirrors  have  a  small  amount  of  gain  associated  with  them.  The 
precision  of  the  measurements  may  be  questionable,  but  the  accuracy  should  be  close 
enough  to  provide  a  good  input  parameter  for  the  code.  Scattering  and  absorption  losses 
appear  to  be  negligible:  0.001  is  a  reasonable  value  for  most  clean  mirrors.  Uniformity 
of  the  mirror  coating  was  checked  and  found  to  be  satisfactory. 

Alignment  of  the  laser  is  another  factor.  The  alignment  procedure  developed 
using  the  diode  laser  was  discussed  in  Section  3.1.  A  suggestion  for  improving 
alignment  technique  is  to  flow  the  CF3I  and  adjust  the  energy  to  a  maximum  through 
alignment.  Another  option  is  to  use  t-C4F9l.  t-C4F9l  has  been  found  to  have  much  better 
recombination  characteristics  than  CF3I  which  allows  for  multiple  shots  off  a  single  fill 
[68].  I  satisfied  myself  with  the  diode  laser  alignment  technique  by  reproducibility  of 
the  measurements. 

Error  outside  the  cavity  can  be  limited  to  the  beamsplitter,  the  joulemeter,  and 
the  fast  detector.  The  fast  detector  is  the  least  likely  source  of  any  error.  The  4  GHz 
bandwidth  is  sufficient  to  measure  a  50  ps  pulse,  as  long  as  the  detector  was  not 
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saturated!  The  beamsplitter  at  7%  per  surface  and  a  stack  of  neutral  density  filters  were 
used  to  ensure  that  no  saturation  occurred.  The  detector  was  not  used  to  measure 
absolute  energy,  but  only  cavity  buildup  time  and  pulse  shape.  The  transmittance  of  the 
beamsplitter  was  measured  with  the  diode  laser  at  the  proper  orientation  to  the 


Serial  Number 

Reflect^ce 

Transmittoce 

92629-01 

0.97958 

0.00970 

92629-02 

0.81869 

0.18480 

92629-03 

0.90694 

0.08748 

92629-04 

0.96415 

0.04153 

92629-05 

0,69951 

0.30370 

91509-01 

0.987 

91509-02 

0.988 

91509-03 

0.941 

91509-04 

0.934 

91509-05 

0.814 

:  91509-06 

0.793 

91509-07 

0.858  ' 

91509-08 

0.851 

91509-09 

0.893 

91509-10 

0.895 

Table  4-2  Measured  Outcoupler  Transmission  and  Reflectivity 


polarization  of  the  light  and  found  to  have  an  86%  transmission  (7%  loss  per  surface  is 
assumed),  and  this  was  factored  into  the  energy  measurement.  Energy  was  measured 
with  three  joulemeters  with  slightly  different  results.  The  best,  most  expensive,  and  most 
suitable  joulemeter  for  low  energy  short  pulsed  measurements  was  chosen  to  be  believed. 
The  outcoupled  energy  reading  can  be  believed  to  be  accurate  to  within  a  factor  of  two. 

Obviously  the  largest  source  of  error  outside  the  cavity  is  the  energy  reading. 
However,  we  may  safely  assume  that  it  is  within  a  factor  of  two.  One  other  important 
fact  to  note  is  that  I  never  got  a  reading  on  the  joulemeter  without  seeing  a  pulse  on  the 
fast  detector,  and  seldom  was  a  pulse  seen  on  the  fast  detector  that  couldn’t  be  measured 
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with  the  joulemeter.  Care  must  be  taken  with  some  joulemeters  which  measure  low 
energy  since  they  are  often  susceptible  to  electrical  as  well  as  acoustic  noise. 

The  final  source  of  error  which  must  be  mentioned  to  conclude  the  quantitative 
analysis  is  the  mode  structure  of  the  laser.  The  resonator  model  used  in  the  code  is  a 
simple  plane  parallel  resonator.  The  configuration  used  in  the  experiment  is  a 
hemispherical  resonator.  The  code  also  assumes  the  laser  is  operating  in  a  single 
transverse  mode;  the  TEMqo  mode.  More  than  likely,  the  actual  device  is  operating  in 
many  transverse  modes.  It  is  likely  that  these  modes  introduce  losses  which  cannot  be 
modeled  as  a  distributed  loss,  but  significantly  affect  the  outcoupled  power  of  the  laser. 
To  solve  the  problem,  it  might  be  suggested  to  aperture  the  cavity  down  to  the  TEMoo 
mode.  The  size  of  aperture  required  to  do  this  can  be  found  by  calculating  the  spot  size 
of  the  TEMoo  mode  at  the  location  of  the  aperture  within  the  cavity.  Placing  the  aperture 
close  to  the  flat  outcoupling  mirror  Rj  we  calculate  the  resonator  parameters  to  be  g,  = 
0.984  and  gj  =  1.0  from  [69]: 


(4.3-1) 


The  spot  size  is  found  to  be  [70]: 
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(3.1-1) 


From  this  calculation  we  see  that  most  likely  the  laser  which  used  a  1.0  cm  aperture  was 
running  in  a  multi-transverse  mode.  The  problem  with  aperturing  the  system  to  a  single 
mode  introduces  difficulties  with  alignment.  There  is  also  some  uncertainty  that  the 
aperture  will  not  select  the  TEMqo  mode  but  will  select  one  of  the  transverse  modes  to 
lase  on  instead. 
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The  extraction  volume  is  well  defined  by  a  1.0  cm  diameter  aperture,  but  if  the 
transverse  mode  structure  is  not  known,  there  may  be  some  uncertainty  associated  with 
this  parameter  in  the  model.  Figure  4-12  shows  the  effect  of  varying  the  size  of  the 
aperture.  The  calculations  use  a  distributed  loss  of  0. 1  % ,  a  pump  energy  of  175  mJ,  and 
a  yield  of  100%.  If  the  experiment  were  favoring  single  mode  operation,  or  at  least  the 
intensity  across  the  laser  beam  were  concentrated  in  the  single  transverse  mode,  I  could 
decrease  the  aperture  in  the  experiment  down  close  to  single  mode  with  little  or  no  effect 
on  intensity,  and  thus  achieve  the  effect  in  Figure  4-12.  Experience  in  the  lab,  however, 
tells  me  that  if  I  were  to  close  the  aperture  down  to  the  single  mode,  the  energy  would 
also  drop  nearly  proportional  to  the  square  of  the  radius  of  the  aperture.  This  was  seen 
when  the  energy  dropped  from  a  few  mJ’s  down  to  half  a  mJ  when  the  1  cm  aperture 
was  added  to  the  system.  Current  work  also  shows  that  the  energy  falls  off  nearly 
proportional  to  the  square  of  the  radius  of  the  aperture.  If  this  is  truly  the  case,  most 
likely  the  resonator  model  in  the  code  is  valid;  however,  the  modeling  of  losses  due  to 
the  higher  order  transverse  modes  may  not  be  appropriate. 

Looking  at  all  of  the  error  studies  performed  thus  far,  the  only  two  parameters 
which  can  be  adjusted  to  bring  the  modeling  into  full  quantitative  agreement  with  the 
experimental  measurements  include  changing  the  aperture  size  of  the  extraction  area  or 
multiplying  the  measured  energy  by  a  factor  due  to  a  possible  factor  of  two  error  in  the 
joulemeter  used  to  measure  I*  laser  energy.  Even  the  error  in  the  energy  measurement 
cannot  alone  account  for  the  discrepancy  observed.  To  bring  the  model  in  line  with 
experiment  it  would  seem  justifiable  to  adjust  the  aperture  accordingly.  Figure  4-13 
illustrates  an  optimal  aperture  size  of  3.8  mm  diameter  to  fit  the  data. 

The  only  other  possibility  of  adjusting  the  model  to  match  the  data  lies  in  the 
noise  term  in  the  intensity  equations.  A  factor  multiplying  the  noise  term  in  the  intensity 
equations  was  varied  and  the  resulting  effect  plotted  in  Figure  4-14.  Changing  this  noise 
term  factor  in  combination  with  the  distributed  loss  was  attempted  with  unsatisfactory 
results.  The  noise  term  discussed  in  Section  2.3  is  fairly  accurate  to  within  a  factor  of 
two  or  three  theoretically.  A  factor  of  10,000  cannot  be  physically  justified  without 
some  sort  of  injection  seeding  of  photons  occurring  in  the  cavity.  The  noise  term  can 
be  adjusted  slightly,  however,  to  bring  the  theoretical  cavity  buildup  time  closer  to 
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Figure  4-12  Influence  of  Aperture  Size 
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Buildup  Time  (ns)  Energy  (Joules) 


Figure  4-14  Influence  of  Noise  Term  Factor 
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measured  data  without  an  effect  on  the  intensity  values. 

A  final  test  of  this  method  of  adjusting  aperture  size  to  bring  the  theory  into  line 
with  the  experiment  is  to  compare  the  newly  adjusted  theory  to  the  pressure 
measurements  and  cavity  length  measurements  illustrated  in  the  last  section.  These 
comparisons  are  made  in  Figure  2-15  and  Figure  2-16.  A  fairly  good  quantitative 
agreement  between  theoretical  calculations  and  experimental  measurements  has  been 
achieved.  Difference  in  the  energy  plot  of  4-15  is  due  most  likely  to  the  nonuniformity 
of  the  gain  region  as  seen  in  Figure  2-1  lb. 
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Figure  4-16  Comparison  Between  Theoretical  and  Measured  Cavity  Length  Variations 


131 


5.  Conclusions 


A  theoretical  rate  equation  model  for  a  short  pulse  atomic  iodine  photodissociation 
laser  was  developed  and  tested.  Approximations  made  to  make  the  model  numerically 
tractable  were  justified  through  physical  arguments.  Calculations  were  performed  to 
predict  I*  laser  action  as  parameters  of  the  experimental  laser  setup  were  varied.  Other 
phenomena  such  as  two  line  lasing  and  relaxation  oscillation  were  predicted  using  the 
model.  The  rate  equation  model  was  evaluated  and  shown  to  perform  satisfactorily. 

Three  different  approaches  were  used  to  determine  the  gain  in  the  short  pulsed 
KrF  excimer  pumped  atomic  Iodine  laser.  The  first  technique  used  a  tunable  diode  laser 
to  directly  measure  the  transient  gain  of  all  six  hyperfine  transitions.  The  gain  on  the 
dominant  3-4  transition  was  found  to  be  between  2.4  %/cm  and  3.1  %/cm.  The  second 
method  involved  measuring  the  energy  extracted  from  the  laser  for  various  outcoupling 
mirrors  and  applying  the  threshold  gain  condition  to  determine  the  small  signal  gain  of 
the  3-4  laser  transition.  This  yielded  a  nominal  gain  of  3.65  %/cm.  A  maximum 
theoretical  gain  of  3.72  %/cm  was  calculated  by  measuring  the  amount  of  energy 
deposited  in  the  CF3I.  Both  experimental  gain  measurements  compared  favorably  to  the 
theoretically  calculated  value. 

A  qualitative  analysis  using  the  rate  equation  model  was  performed  to  demonstrate 
similarities  between  the  theory  and  the  experiment.  Outcoupler  reflectivity,  pressure,  and 
cavity  length  were  varied  in  both  the  model  and  the  experiment.  Theoretical  and 
measured  cavity  buildup  time  and  pulse  shape  of  the  T  laser  compared  quite  favorably 
in  a  qualitative  sense.  There  was,  however,  a  consistent  discrepancy  in  the  extracted 
energy:  The  theoretical  energy  was  consistently  higher  than  the  measured  energy  by  a 
factor  of  about  seven. 

A  exhaustive  error  analysis  was  performed  to  determine  possible  causes  of 
discrepancy  between  theory  and  experiment.  It  was  found  that  by  adjusting  the 
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extraction  aperture  in  the  code,  a  better  agreement  between  theory  and  experiment  can 
be  achieved.  This  could  possibly  be  related  to  the  transverse  mode  structure  of  the  laser 
and  the  failure  of  the  code  to  model  losses  in  higher  order  transverse  modes.  A 
discrepancy  in  pressure  measurements  was  found  that  could  be  due  to  the  non-uniformity 
of  the  gain  region  caused  by  Beer’s  law  photodissociation.  In  general,  however,  the  rate 
equation  model  and  the  experiment  compared  quite  favorably  once  the  adjustment  to  the 
aperture  size  was  made. 
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Appendix  A.  Vector  Model  of  Atomic  Iodine 


The  hyperfine  structure  of  atomic  iodine  results  from  the  splitting  of  the  fine 
structure  components  due  to  interactions  between  the  nucleus  and  the  angular  momentum 
of  the  electrons  as  outlined  in  Section  2.1.  This  splitting  leads  to  six  hyperfine  energy 
states,  two  upper  (^P,/2)  and  four  lower  Further  splitting  of  the  hyperfine 

structure  occurs  in  the  presence  of  a  magnetic  field.  This  effect  is  known  as  Zeeman 
splitting.  The  following  code  treats  each  of  the  splitting  events  as  a  perturbation  to  the 
ground  state.  If  the  Zeeman  perturbation  is  neglected,  the  zero  field  frequency  spectrum 
of  atomic  iodine  seen  in  Figure  2-7  is  generated. 


c  This  program  was  originally  written  by  Bob  Shea  on  the 
c  Cray  at  the  weapons  laboratory  when  it  was  running  under  CTSS. 

c  I  have  made  various  modifications  to  get  it  to  run  on  the  Iris 

c  workstations  at  the  Chemical  Laser  Facility.  These 
c  modifications  include  writing  a  program  to  block  diagonalize 
c  matrices  to  solve  for  the  Eigenvalues  of  the  system  to  gain 
c  independence  from  the  Slatec  Libraries  on  the  Cray.  I  wrote  a 
c  graphics  driver  using  NCAR  to  plot  the  output  to  a  standard 

c  CGM  (  Computer  Graphics  Metafile  )  file  so  that  the  gain 

c  spectrum  could  be  compressed  and  animated  and/or  converted  to 
c  a  postscript  file  and  plotted  out.  I  also  converted  the  X  axis 
c  array  frequency  to  double  precision  to  avoid  the  stairstep 
c  effect.  I’ve  written  several  other  programs  to  analyze  the 

c  output  of  the  code  to  get  plots  of  frequency  vs  B  field  and 

c  small  signal  gain  vs  B  field, 
c 

c  -  Lt.  B.  Scott  Hunt 

c 

c 

c  This  is  the  main  calling  program  for  calculating  the  effect 
c  of  a  magnetic  field  on  the  iodine  laser.  A  particular  set  of 

c  basis  states  is  chosen  to  simplify  the  problem.  These  states 

c  are  discussed  in  the  routines  DRIVEU  and  DRIVEL, 
c  DRIVEU  calculates  the  eigenvalues  and  eigenvectors 
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resulting  from  a  combination  of  the  zeeman  effect  and  the 
hyperfine  interaction  in  the  upper  laser  level. 

DRIVEL  performs  the  same  calculation  for  the  lower  state. 

Subroutine  ACOEFF  calculates  the  a  coefficients  due  to 
magnetic  dipole  transitions  between  upper  and  lower  eigenstates. 

These  eigenstates  are  a  linear  combination  of  basis  states,  the 
particular  combination  is  a  function  of  magnetic  field  strength. 

The  A-coefficients  are  stored  in  the  arrays  AR(i,j),  AL(i,j)  and 
AZ(i,j). 

Subroutine  ABSORB  calculates  the  absorption  coefficients  for 
each  transition. 

Subroutine  SYNTH  calculates  the  total  absorption  cross  section 
across  a  doppler  profile  centered  on  the  F=3->F’=4  laser  line. 

Subroutine  SYNTH3  scans  all  transitions  to  find  the  maximum  and 
and  minimum  absorption. 

Subroutine  SETLIN  initializes  the  array  broad  with  normalized 
line  shape  information. 

Subroutine  SCAN  finds  the  range  of  wavenumbers  covered  by  the 
transitions. 

Subroutine  GAIN  calculates  the  stimulated  emission  cross  section 
as  a  function  of  wavenumber  and  polarization. 

9|c9icaie9|c9ic9i(:ic)ie9)C9ic9iC9ie)je9ic:K9ic9i(9i(9ic  yQ  J^UN  THIS  CODE  ’*‘********************** 

You  the  user  have  little  to  do.  There  is  no  separate  input  stream. 

The  only  option  you  have  is  to  change  a  few  data  statements.  The 
statements  are  located  in  this  main  program  and  the  variables 
are  discussed  below. 

IMAX  -  controls  the  number  of  non-zero  magnetic  fields  for 
which  calculations  are  performed.  The  code  always 
performs  a  calculation  for  zero-field  in  order  to 
determine  parameters  it  needs  for  later  calculations. 

FIELD  -  this  array  contains  the  various  values  of  magnetic 
field  (in  Gauss).  Only  the  first  IMAX  elements  are 
used. 

TEMP  -  the  gas  temperature  (degrees  K)  is  only  used  in  INIT 
to  calculate  the  Doppler  linewidth. 

PRESS  -  the  gas  pressure  (torr)  is  used  in  INIT  to  calculate 
the  Lorenz  linewidth.  It  is  assumed  that  broadening 
coefficients  are  5  MHz/torr  and  independent  of 
temperature  for  all  gases.  This  approximation  is 
crude  but  should  be  sufficient  for  most  purposes. 

It  can  be  upgraded  by  modifying  one  line  of  code 
in  INIT. 
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c 

double  precision  xarray(8000) 

common  /upper/  nvecu,evalu(12),evectu(12,12),peturb(12,12) 
common  /basisu/  nrepu,idimu(7),rmiu(12),rmju(12),ifu(12) 
common  /paramu/  au,bu,gu 

common  /lower/  nvecl,evall(24),evectl(24,24),plower(24,24) 
common  /basisl/  nrepl,idiml(9),rmil(24),rmjl(24),ifl(24) 
common  /paraml/  al,bl,gl 

common  /line/  wdopp,wlomz, ratio, voigt0,npts,shape(101), 

a  rl(101),rr(101),rz(101) 

common  /band/  width, nband,bandw(8000),rlwide(8000) 
common  /const/  planck,c,pi,alpha,ele,rad,bohr,tO 
common  /transit/  wlase(6),wave(12,24),aq(12,24),ar(12,24), 
a  az(12,24) 

common  /ginteg/  gnul(8000),gnur(8000),gnuz(8000),nstep, 
a  delx(  1 0) ,  xtotal ,  broad( 1 6000) ,  nbig ,  ncent , 

b  xarray ,  ncount,bigger ,  nlin,nright,  nleft 

common  /plotv/  rlsave(101,25),rrsave(101,25),rzsave(101,25), 
a  field(160),nfield 

common  /dipole/  tl(12,24),tr(12,24),tz(12,24) 
common  /prob/  pl(12,24),pr(12,24),pz(12,24) 
common /gains/  svl,sv2,sv3 
c 

c  This  sets  up  the  integers  involved  in  the  gain  calculations: 
c 

delx(l)=0.5 
delx(2)=0.5 
delx(3)=0.5 
delx(4)=0.5 
delx(5)=0.5 
delx(6)=0.5 
delx(7)  =  1.0 
delx(8)  =  1.0 
delx(9)=0.4 
delx(10)=0.0 
xtotal=5.4 
nstep=8000 
nbig =16000 
ncent =8001 
c 

c  This  sets  up  the  number  of  fields  to  calculate,  the  unit  file  to 
c  store  the  data,  the  temperature,  the  pressure,  and  the  pressure 
c  broadening  coefficient: 
c 

imax=0 
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ifile=10 
temp =300.0 
press =60.0 
pbroad=11.3e6 
c 

c  This  sets  up  the  magnetic  field  strengths  in  gauss: 
c 

c  fldinc=50.0 
c  do  10  i=l,20 
c  field  (i)  =  i*fldinc 

c  10  continue 
c 

c  fldinc=  100.0 
c  do  15  i=21,imax 
c  field(i)  =  field(20+(i-20)*fldinc 

c  15  continue 
c 

c  field(l)  =  600.0 
c 

c  This  sets  up  the  file  to  store  the  dialogue  in: 
c 

open(unit = 7 ,  file = ’  energies,  pm  ’ ,  status = ’  new  ’ ) 
c 

c  — - - - 


call  opngks 
c 

c  This  is  the  loop  to  do  the  calculations  for  zero  magnetic  field: 
c 

do  50  ifile= 10,10 
write(7,9200)  ifile-10 
c 

call  init(temp, press, pbroad) 
c 

ppbroad  =pbroad/l  .0e6 
h  =  0.0 
ifield  =  0 
call  driveu(h) 
call  drivel(h) 
c 

c  wlase(l)  is  the  wavenumbver  of  the  f=3  to  f=4  transition 
c  in  zero  field: 
c 

wlase(l)  =  to  +  evalu(l)  -  evall(l) 
wlase(2)  =  tO  +  evalu(l)  -  evall(2) 
wlase(3)  =  tO  +  evalu(l)  -  evall(4) 
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wlase(4)  =  tO  +  evalu(2)  -  evall(2) 
wlase(5)  =  tO  +  evalu(2)  -  evall(4) 
wlase(6)  =  tO  +  evalu(2)  -  evall(7) 
c 

write(7,9000)  imax 
write(6,9000)  imax 
c 

call  acoeff 
call  absorb 
call  synth 
call  synthS 
call  output(h,absrb) 
call  scan(wavmax,wavmin) 
call  setlin(wavmax,wavmin) 
call  gain(wavmax,wavmin,ifield) 
c 

c  This  calls  the  filing  routine: 
c 

call  fileit(ifile,  h ,  temp , press  .ppbroad) 
c 

50  continue 
c 

c  stop 
c 

c - 

c 

c  This  is  the  loop  to  do  the  calculations  for  a  non-zero  magnetic 
c  field: 
c 

do  100  i  =  l,imax 
write(7,9100)  i 
write(6,9100)  i 
h  =  field(i) 
call  driveu(h) 
call  drivel(h) 
c 

call  acoeff 
call  absorb 
call  synth 
call  synthS 
call  output(h,absrb) 
call  scan(wavmax,wavmin) 
call  setlin(wavmax,wavmin) 
call  gain(wavmax,wavmin,i) 
c 

c  This  calls  the  filing  routine: 
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c 

call  fileit(i+ 10, h, temp, press, ppbroad) 
c 

100  continue 

call  clsgks 
c 

stop 

9000  format(lx, ’Number  of  fields  to  calculate  =  ’,i4) 

9100  format( lx, ’Field  calculation  number  =  ’,i4) 

9200  format(lx, ’Initial  calculation  number  =  ’,i4) 
end 
c 

C 

subroutine  init(temp,press,pbroad) 
c 

c  This  routine  initializes  the  hyperfine  interaction  constants, 
c  The  units  are  in  1/cm.  other  constants  are  identified  below: 
c 

c  rad  -  The  bohr  radius  in  cm. 

c  ele  -  The  electron  charge  in  esu. 

c  alpha  -  The  fine  strcture  constant, 

c  bohr  -  The  bohr  magneton  in  units  of  l/(cm-gauss) 

c  tO  -  The  separation  (in  1/cm)  of  the  unpeturbed  spin-orbit 
c  terms, 

c 

- - 

c 

common  /upper/  nvecu,evalu(12),evectu(12,12),peturb(12,12) 
common  /paramu/  au,bu,gu 

common  /basisu/  nrepu,idimu(7),rmiu(12),rmju(12),ifu(12) 
common  /lower/  nvecl,evall(24),evectl(24,24),plower(24,24) 
common  /paraml/  al,bl,gl 

common  /basisl/  nrepl,idiml(9),rmil(24),rmjl(24),ifl(24) 
common  /line/  wdopp,wlomz,ratio,voigt0,npts,shape(101), 
a  rl(101),rr(101),rz(101) 

common  /band/  width, nband,bandw(8000),rlwide(8000) 
common  /const/  planck,c,pi,alpha,ele,rad,bohr,tO 
c 

au=0.21973 
bu=0.0 
gu  =0.673 
c 

al=0.02759 

bl=0.03812 
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gl= 1.3333 

nvecu  =  12 

nrepu=7 

idiniu(l)  =  l 

idimu(2)=2 

idimu(3)=2 

idimu(4)=2 

idimu(5)=2 

idimu(6)=2 

idimu(7)  =  l 

rmiu(l)=2.5 

rmiu(2)=2.5 

rmiu(3)  =  1.5 

rmiu(4)  =  1.5 

rmiu(5)=0.5 

rmiu(6)=0.5 

rmiu(7)=-0.5 

rmiu(8)=-0.5 

rmiu(9)=-1.5 

rmiu(10)=-1.5 

rmiu(ll)=-2.5 

rmiu(12)=-2.5 

rmju(l)=0.5 

rmju(2)=-0.5 

rmju(3)=0.5 

rmju(4)=-0.5 

rmju(5)=0.5 

rmju(6)=-0.5 

rniju(7)=0.5 

rmju(8)=-0.5 

rmju(9)=0.5 

rmju(10)=-0.5 

rmju(ll)=0.5 

rmju(12)=-0.5 

ifu(l)=3 

ifu(2)=2 

ifu(3)=2 

ifu(4)  =  1 

ifu(5)  =  l 

ifu(6)=0 

ifu(7)=0 

ifu(8)=-l 

ifu(9)=-l 

ifu(10)=-2 


149 


ifu(ll)=-2 

ifu(12)=-3 

nvecl=24 

nrepl=9 

idiml(l)  =  l 

idiml(2)=2 

idiml(3)=3 

idiml(4)=4 

idiml(5)=4 

idiml(6)=4 

idiml(7)=3 

idiml(8)=2 

idinil(9)  =  1 

rmil(l)=2.5 

rmil(2)=2.5 

rmil(3)  =  1.5 

rmil(4)=2.5 

rmil(5)  =  1.5 

rmil(6)=0.5 

rmil(7)=2.5 

rmil(8)  =  1.5 

rmil(9)=0.5 

rmil(10)=-0.5 

rmil(ll)  =  1.5 

rmil(12)=0.5 

rmil(13)=-0.5 

rmil(14)=-1.5 

rmil(15)=0.5 

rmil(16)=-0.5 

rmil(17)=-1.5 

rmil(18)=-2.5 

rmil(19)=-0.5 

rmil(20)=-1.5 

rmil(21)=-2.5 

rmil(22)=-L5 

rmil(23)=-2.5 

rmil(24)=-2.5 

rmjl(l)  =  1.5 

rmjl(2)=0.5 

rmjl(3)  =  1.5 

rmjl(4)=-0.5 

rmjl(5)=0.5 

rmjl(6)  =  1.5 

rmjl(7)=-1.5 
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rmjl(8)=-0.5 

rnijl(9)=0.5 

rmjl(10)  =  1.5 

rmjl(ll)=-1.5 

rmjl(12)=-0.5 

rmjl(13)=0.5 

rmjl(14)  =  1.5 

rnijl(15)=-1.5 

rmjl(16)=-0.5 

rmjl(17)=0.5 

rmjl(18)=L5 

rmjl(19)=-L5 

rmjl(20)=-0.5 

rmjl(21)=0.5 

rmjl(22)=-1.5 

rmjl(23)=-0.5 

rmjl(24)=-1.5 

ifl(l)=4 

ifl(2)=3 

ifl(3)=3 

ifl(4)=2 

ifl(5)=2 

ifl(6)=2 

ifl(7)  =  l 

ifl(8)  =  l 

ifl(9)  =  l 

ifl(10)  =  l 

ifl(ll)=0 

ifl(12)=0 

ifl(13)=0 

ifl(14)=0 

ifl(15)=-l 

ifl(16)=-l 

ifl(17)=-l 

ifl(18)=-l 

ifl(19)=-2 

ifl(20)=-2 

ifl(21)=-2 

ifl(22)=-3 

ifl(23)=-3 

ifl(24)=-4 


planck = 6. 626 1 76e-27 
c=2.997925el0 
pi=3.14159 
alpha=0.007297351 


ele=4.803242e-10 
rad=5.291771e-9 
bohr=0.46686e-4 
t0=7602.9768 
npts=101 
width =4.5el0 
nband=8000 
c 

c - 

c 

c  Initialize  the  magnetic  dipole  operator  between  basis  states: 
c 

call  setul 
c 

c  Set  up  the  line  shape  parameter: 
c 

wdopp  =  sqrt(temp/300.0)*250.e6 
treff  =  298.0 

wlomz  =  (treff/ temp)  *press*pbroad 
ratio  =  sqrt(alog(2.))*wlomz/wdopp 
c 

c  Find  line  shape  factor  at  line  center: 
c 

call  erf(0., ratio, rim, re) 
voigtO  =  re 
c 

c  Now  include  the  doppler  line  shape  normalization  factor: 
c 

voigtO  =  voigt0*2.*sqrt(alog(2.)/pi)/wdopp 
c 

c  Set  up  the  linewidth  over  which  we  wish  to  scan: 
c 

call  find(start,end) 

del  =  (end  -  start)/float(npts-l) 

do  100  i=l,npts 

shape(i)  =  start  +  del*(i-l) 

100  continue 
c 

return 

end 

c 

p  ***************S|C***J|C****!|C>|!**>K*J|CJ|t**J|e******J|C**********5|C*l|C*****J|ej|CJ(C)(tJ|t***** 

c 

subroutine  setul 
c 

c  This  routine  sets  up  matrix  elements  of  the  magnetic  dipole 
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c  operator  between  the  basis  states  as  defined  in  the  routines 
c  driveu  and  drivel.  The  usual  theorems  are  used  to  eveluate 

c  the  matrix  elements  in  terms  of  reduced  matrix  elements, 

c  The  reduced  matrix  elements  are  evaluated  assuming  1-s  coupling, 
c  The  form  of  the  matrix  elements  is  as  follows 
c  (upper  basis  state)*(  1  +  2*s  )*(lower  basis  state) 

c  These  matrix  elements  are  stored  in  arrays  tl,tr,  and  tz, 
c  which  correspond  to  the  various  components  of  the  vector 
c  operator. 

c  The  components  of  the  magnetic  dipole  operator  in  a  spherical 
c  basis  are  denoted  by  p(l),p(0),and  p(-l).  The  arrays  tl,tr,  and 
c  tz  correspond  to  the  following  type  of  matrix  elements 


c 

tz: 

(1/2  m 

::  p(0)  :: 

3/2 

m  ) 

c 

tl: 

(1/2  m 

::  p(l)  :: 

3/2 

m+1) 

c 

tr: 

(1/2  m 

::  p(-l)  :: 

3/2 

m-1) 

c 

c 

c - 

c 

common  /upper/  nvecu,evalu(12),evectu(12,12),peturb(12,12) 
common  /basisu/  nrepu,idimu(7),rmiu(12),rmju(12),ifu(12) 
common  /lower/  nvecl,evall(24),evectl(24,24),plower(24,24) 
common  /basisl/  nrepl,idiml(9),rmil(24),rmjl(24),ifl(24) 
common  /dipole/  tl(12,24),tr(12,24),tz(12,24) 
c 

character's  msgl(7),msg2(7),msg3(7) 
c 

msgl(l)  = ’matrix  e’ 
msgl(2)  =  ’lements  ’ 
msgl(3)  =  ’ofthed’ 
msgl(4)  =  ’ipole  op’ 
msgl(5)=’erator  f 
msgl(6)  =  ’or  q  =  0’ 
msgl(7)  =  ’ 
msg2(l)  = ’matrix  e’ 
msg2(2)  =  ’lements  ’ 
msg2(3)  =  ’of  the  d’ 
msg2(4)  =  ’ipole  op’ 
msg2(5)  =  ’erator  f 
msg2(6)  =  ’orq  =  +’ 
msg2(7)  =  ’l 
msg3(l)  = ’matrix  e’ 
msg3(2)=’lements  ’ 
msg3(3)  =  ’of  the  d’ 
msg3(4)  = ’ipole  op’ 
msg3(5)  =  ’erator  f 
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/ 


msg3(6)  =  ’or  q  =  -’ 
msg3(7)  =  ’  1 
c 

c - 

c 

reduce  =  -2./sqrt(3.) 
fz  =  l./sqrt(6.) 
fl  =  .5 

f2  =  .5/sqrt(3.) 
c 

do  200  i=l,nvecu 
rmjl  =  rmju(i) 
rmil  =  rmiu(i) 
if(rmjl.gt.0.0)  fr  =  f2 
if(rmjl.lt.0.0)  fr  =  fl 
if(rmjLgt.0.0)  fl  =  fl 
if(rmjl.lt.0.0)  fl  =  f2 
do  100j  =  l,nvecl 
rmj2  =  rmjl(j) 
rmi2  =  rmil(j) 

del  =  reduce*delta(rmil,rmi2) 
tl  (i , j )  =  del  *delta(rmj  1 ,  rmj  2- 1 . )  *fl 
tr(i,j)  =  del*delta(rmjl,rmj2+l.)*fr 
tz(i,j)  =  del*delta(rmjl,rmj2)*fz 
100  continue 
200  continue 

✓ 

call  matout(tz,nvecu,nvecl,msgl) 
call  matout(tl,nvecu,nvecl,msg2) 
call  matout(tr,nvecu,nvecl,msg3) 

return 

end 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


subroutine  driveu(h) 

This  routine  calls  appropriate  routines  to  do  the  calculations 
for  the  upper  state.  The  particular  basis  states  are  given  below, 
the  nuclear  spin  is  5/2  and  the  total  angular  momentum  for  the 
upper  state  is  1/2. 


basis(i)  =  j  i  mj  mi 
basis(l)  =  1/2  5/2 
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c 

basis(2)  = 

-1/2  5/2 

c 

basis(3)  = 

1/2  3/2 

c 

basis(4)  = 

-1/2  3/2 

c 

basis(5)  = 

1/2  1/2 

c 

basis(6)  = 

-1/2  1/2 

c 

basis(7)  = 

1/2  -1/2 

c 

basis(8)  = 

-1/2  -1/2 

c 

basis(9)  = 

1/2  -3/2 

c 

basis(lO)  = 

-1/2  -3/2 

c 

basis(ll)  = 

1/2  -5/2 

c 

basis(12)  = 

-1/2  -5/2 

c 

c  This  particular  choice  is  convenient  since  the  perturbation 
c  only  couples  pairs  such  as  2  and  3,  4  and  5,  etc. 
c  The  array  evalu(i)  contains  the  energies(eigenvalues)  of 
c  the  diagonalized  hamiltonian  ands  evectu(j,i)  contains  the 
c  corresponding  eigenvector, 
c 

c - 

c 

common  /upper/  nvecu,evalu(12),evectu(12,12),peturb(12,12) 
common  /basisu/  nrepu,idimu(7),rmiu(12),rmju(12),ifu(12) 
common /paramu/ au,bu,gu 
common  /const/  planck,c, pi, alpha, ele, rad, bohr,tO 
c 

character*8  msg  1  (7) ,msg2(7),msg3(7) 
c 

msg  1  ( 1 )  =  ’perturba’ 
msgl(2)  =  ’tion  mat’ 
msgl(3)  =  ’rix  for  ’ 
msgl(4)  =  ’the  doub’ 
msgl(5)  =  ’letp  1/’ 
msgl(6)  =  ’2  state  ’ 
msgl(7)=’ 
msg2(l)  = ’matrix  o’ 
msg2(2)  =  ’  f  eigenv’ 
msg2(3)  = ’ectors  f 
msg2(4)  =  ’or  the  d’ 
msg2(5)=’oublet  p’ 
msg2(6)  =  ’  1/2  sta’ 
msg2(7)=’te 
msg3(  1)  =  ’  eigenval’ 
msg3(2)  =  ’ues  or  e’ 
msg3(3)  =  ’nergies  ’ 
msg3(4)  =  ’for  the  ’ 
msg3(5)  =  ’doublet  ’ 
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msg3(6)  =  ’p  1/2  St’ 
msg3(7)=’ate  ’ 
c 

c - 

c 

c  Generate  the  perturbation  matrix 
c 

call  setu(h) 
c 

c  Write  out  the  matrix 
c 

if(h.eq.0.0)  call  matout(peturb,nvecu,nvecu,msgl) 
c 

c  Calculate  the  eigenvalues  and  eigenvectors 
c 

call  eigen(nvecu,evalu,evectu,peturb,nrepu,idimu) 
c 

c  Normalize  the  eigenvectors 
c 

call  normal(nvecu,evectu) 
c 

c  Write  out  matrix  of  eigenvectors 
c 

if(h.eq.0.0)  call  matout(evectu,nvecu,nvecu,msg2) 
c 

c  Write  out  the  eigenvalues 
c 

write(7,9000)  h 
call  vecout(evalu,nvecu,msg3) 
c 

return 

9000  format(lhl,10x, ’Magnetic  field  strength  =  ’,el2.5,’  oe’) 
end 
c 

c 

subroutine  drivel(h) 
c 

c  This  routine  calls  appropriate  routines  to  do  the  calculations 
c  for  the  lower  state.  The  particular  basis  states  are  given  below, 

c  The  nuclear  spin  is  5/2  and  the  total  angular  momentum  for  the 
c  lower  state  is  3/2. 
c 

c  basis(i)  =  j  i  mj  mi 
c 

c  basis(l)  =  3/2  5/2 
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c 

basis(2)  = 

1/2  5/2 

c 

basis(3)  = 

3/2  3/2 

c 

basis(4)  = 

-1/2  5/2 

c 

basis(5)  = 

1/2  3/2 

c 

basis(6)  = 

3/2  1/2 

c 

basis(7)  = 

-3/2  5/2 

c 

basis(8)  = 

-1/2  3/2 

c 

basis(9)  = 

1/2  1/2 

c 

basis(lO)  = 

3/2  -1/2 

c 

basis(ll)  = 

-3/2  3/2 

c 

basis(12)  = 

-1/2  1/2 

c 

basis(13)  = 

1/2  -1/2 

c 

basis(14)  = 

3/2  -3/2 

c 

basis(15)  = 

-3/2  1/2 

c 

basis(16)  = 

-1/2  -1/2 

c 

basis(17)  = 

1/2  -3/2 

c 

basis(18)  = 

3/2  -5/2 

c 

basis(19)  = 

-3/2  -1/2 

c 

basis(20)  = 

-1/2  -3/2 

c 

basis(21)  = 

1/2  -5/2 

c 

basis(22)  = 

-3/2  -3/2 

c 

basis(23)  = 

-1/2  -5/2 

c 

basis(24)  = 

-3/2  -5/2 

c 

c 

c 

c  The  array  evall(i)  contains  the  energies(eigenvalues)  of 
c  the  diagonalized  hamiltonian  ands  evectlO,i)  contains  the 
c  corresponding  eigenvector, 
c 

c - 

c 

common  /lower/  nvecl,evall(24),evectl(24,24),plower(24,24) 
common  /basisl/  nrepl,idiml(9),rmil(24),rmjl(24),ifl(24) 
common  /paraml/  al,bl,gl 

common  /const/  planck,c, pi, alpha, ele, rad, bohr,tO 
character*8  msg  1  (7) ,  msg2  (7) ,  m  sg3  (7) 
c 

msg  1  ( 1 )  =  ’perturba’ 
msgl(2)  =  ’tion  mat’ 
msgl(3)  =  ’rix  for  ’ 
msgl(4)=’the  doub’ 
msgl(5)  =  ’letp  3/’ 
msgl(6)  =  ’2  state  ’ 
msgl(7)  =  ’ 
msg2(l)  = ’matrix  o’ 
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msg2(2)  =  ’f  eigenv’ 
msg2(3)=’ectors  f 
msg2(4)  =  ’or  the  d’ 
msg2(5)  =  ’oublet  p’ 
msg2(6)  =  ’  3/2  sta’ 
msg2(7)  =  ’te  ’ 
msg3  ( 1 ) = ’  eigen  val  ’ 
nisg3(2)  =  ’ues  or  e’ 
msg3(3)  = ’nergies  ’ 
msg3(4)  =  ’for  the  ’ 
msg3(5)  = ’doublet  ’ 
msg3(6)  =  ’p  3/2  st’ 
msg3(7)  =  ’ate 
c 

- - 

c 

c  Generate  the  perturbation  matrix 
c 

call  setl(h) 
c 

c  Write  out  the  matrix 
c 

if(h.eq.0.0)  call  matout(plower,nvecl,nvecl,msgl) 
c 

c  Calculate  the  eigenvalues  and  eigenvectors 
c 

call  eigen(nvecl,evall,evectl,plower,nrepl,idiml) 
c 

c  Normalize  the  eigenvectors 
c 

call  normal(nvecl,evectl) 
c 

c  Write  out  matrix  of  eigenvectors 
c 

if(h.eq.0.0)  call  matout(evectl,nvecI,nvecl,msg2) 
c 

c  Write  out  the  eigenvalues 
c 

write(7,9000)  h 
call  vecout(evall,nvecl,msg3) 
c 

return 

9000  format(lhl,10x, ’Magnetic  field  strength  =  ’,el2.5,’  oe’) 
end 
c 
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c 

subroutine  setu(h) 
c 

c  The  array  peturb  is  the  matrix  of  the  peturbation  betweeen 
c  basis  vectors  il  and  i2.  The  quantum  numbers  mi  and  mj  are 
c  calculated  from  the  basis  vector  indicies. 
c  The  matrix  has  the  form:  basis(il)*h*basis(i2) 
c 

c - 

c 

common  /upper/  nvecu,evalu(12),evectu(12,12),peturb(12,12) 
common  /basisu/  nrepu,idimu(7),rmiu(12),rmju(12),ifu(12) 
common  /paramu/  au,bu,gu 
common  /const/  planck,c, pi, alpha, ele, rad, bohr,tO 
c 

c - 

c 

do  200  il  =  l,nvecu 
do  100  i2=l,nvecu 
peturb(il,i2)  =  0.0 
100  continue 
200  continue 
c 

zeeman  =  bohr*gu*h 
c 

do  400  il  =  l,nvecu 
do  300  i2=l,nvecu 
rmjl  =  rmju(il) 
rmj2  =  rmju(i2) 
rmil  =  rmiu(il) 
rmi2  =  rmiu(i2) 
c 

fl  =  sqrt((.5-rmj2)*(1.5+rmj2)*(2.5+rmi2)*(3.5-rmi2)) 
f2  =  sqrt((.5+rmj2)*(L5-rmj2)*(2.5-rmi2)*(3.5+rmi2)) 
diag  =  delta(rmjl,rmj2)*delta(rmil,rmi2) 
offl  =  delta(rmjl,rmj2+l,)*delta(rmil,rmi2-l.) 
off2  =  delta(rmjl,rmj2-l.)*delta(rmil,rmi2+l.) 
peturb(il,i2)  =  zeeman*rmjl*diag  +  au*rmjl*rmil*diag 
a  +  .5*au*fl*offl  +  .5*au*f2*off2 

300  continue 
400  continue 
c 

return 

end 

c 
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c 

subroutine  setl(h) 
c 

c  The  array  plower  is  the  matrix  of  the  peturbation  betweeen 
c  basis  vectors  il  and  i2.  The  quantum  numbers  mi  and  mj  are 
c  taken  from  arrays  rmil  and  rmjl. 

c  Since  the  algebra  for  the  matrix  elements  of  the  operator 
c  (i  dot  j)**2  is  messy,  it  is  calculated  by  first  working  out 
c  the  matrix  elements  of  (i  dot  j)  and  then  multiplying  matrices, 
c 

c - 

c 

common  /lower/  nvecl,evall(24),evectl(24,24),plower(24,24) 

common  /basisl/  nrepl,idiml(9),rmil(24),rmjl(24),ifl(24) 

common  /paraml/  al,bl,gl 

common  /const/  planck,c, pi, alpha, ele, rad, bohr,tO 
c 

dimension  temp(24,24) 
c 

c - 

c 

do  200  il  =  l,nvecl 
do  100  i2=l,nvecl 
plower(il,i2)  =  0.0 
temp(il,i2)  =  0.0 
100  continue 
200  continue 
c 

zeeman  =  bohr*gl*h 
c 

do  400  il  =  l,nvecl 
do  300  i2=l,nvecl 
rmjl  =  rmjl(il) 
rmj2  =  rmjl(i2) 
rmil  =  rmil(il) 
rmi2  =  rmil(i2) 

fl  =  sqrt((1.5-rmj2)*(2.5+rmj2)’^(2.5+rmi2)*(3.5-rmi2)) 
f2  =  sqrt((1.5+rmj2)»(2.5-rmj2)*(2.5-rmi2)=^(3.5+rmi2)) 
diag  =  delta(rmJl,rmJ2)*delta(rmil,rmi2) 
offl  =  delta(rmjl,rmj2+l.)*delta(rmil,rmi2-l.) 
off2  =  delta(rmjl,rmj2-l.)*delta(rmil,rmi2+l.) 
temp(il,i2)  =  rmjl*rmil*diag  +  .5*fl*offl  +  .5*f2*off2 
300  continue 
400  continue 

✓ 

do  700  il  =  l,nvecl 
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do  600  i2  =  l,nvecl 
do  500  j  =  1  ,nvecl 

plower(il,i2)  =  plower(il,i2)  +  temp(il,j)*temp(j,i2) 
500  continue 
600  continue 
700  continue 
c 

cl  =  bl/20. 
c2  =  al  +  bl/40. 
do  900  il  =  l,nvecl 
do  800  i2=l,nvecl 

plower(il,i2)  =  cl*plower(il,i2)  +  c2*temp(il,i2) 

800  continue 
900  continue 
c 

c3  =  -35.0*bl/64.0 
do  1000  il  =  l,nvecl 

plower(il,il)  =  zeeman*rnijl(il)  +  c3  +  plower(il,il) 

1000  continue 
c 

return 

end 

c 

c 

subroutine  eigen(n,eval,evect,p,nrep,idim) 
c 

c  This  routine  diagonalizes  the  matrix  p  and  returns  the 
c  eigenvectors  in  array  evect  and  the  eigenvalues  in  array 

c  eval.  The  array  p  is  assumed  to  be  in  block  diagonal  form  with 

c  nrep  blocks.  The  dimension  of  each  block  is  stored  in  array 

c  idim.  Each  block  is  broken  out  and  diagonalized  separately, 

c  This  is  done  in  order  to  avoid  diagonalizing  large  matrices, 
c  The  dimensions  of  the  arrays  set  in  this  routine 
c  assume  that  at  most  we  will  be  dealing  with  a  4  x  4  matrix, 
c  jacobi  returns  the  eigenvectors  stored  as  columns  in  the 
c  array  a. 
c 

c - 

c 

dimension  eval(n)  ,evect(n  ,n)  ,p(n ,  n)  ,idim(nrep) 
dimension  a(16),e(4),b(16) 
c 

c - 

c 


do  200  i=l,n 
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do  100j  =  l,n 
evect(i,j)  =  0.0 
100  continue 
200  continue 
c 

index  =  0 
do  1000  i=l,nrep 
m  =  idim(i) 
do  500  j  =  l,m 
do  400  k=l,m 

a(j+(k-l)*ni)  =  p(index+j,index+k) 

400  continue 

500  continue 
c 

call  jacobi(a,m,m,e,b,nrot) 
c 

do  700  j  =  l,ni 
eval(index+j)  =  e(j) 
do  600  k=l,m 

evect(index+j,  index +k)  =  b(j+(k-l)*m) 

600  continue 

700  continue 
c 

index  =  index  +  m 
1000  continue 
c 

return 

end 

c 

C 

subroutine  jacobi  (a,  n ,  np ,  d ,  v,  nrot) 
c 

c - 

c 

parameter  (nmax  =  100) 

dimension  a(np,np),d(np),v(np,np),b(nmax),z(nmax) 
c 

c - - 

c 

c  This  initializes  the  identity  matrix, 
c 

do  12  ip=l,n 
do  11  iq=l,n 
v(ip,i(i)=0. 

1 1  continue 
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v(ip,ip)=l. 

12  continue 
c 

c  This  initializes  b  and  d  to  the  diagonal  a. 
c  z  will  accumulate  terms  in  the  form  of  taqp. 
c 

do  13  ip=l,n 
b(ip)=a(ip,ip) 
d(ip)=b(ip) 
z(ip)  =0. 

13  continue 
c 

c  This  sums  the  off  diagonal  elements, 
c 

nrot=0 
do24i  =  l,50 
sm=0. 

do  15  ip=l,n-l 
do  14  iq=ip+l,n 
sm = sm + abs(a(ip,iq)) 

14  continue 

15  continue 
c 

c  sm  converges  to  zero  as  the  off  diagonal  elements  go  to  zero, 
c 

if(sm.eq.0.)retum 
if(i.lt.4)then 
tresh  =0.2*sm/n**2 
else 

tresh  =0. 
endif 

do  22  ip=  l,n-l 
do  21  iq=ip+l,n 
g  =  100.  *abs(a(ip,iq)) 

if((i.gt.4).and.(abs(d(ip))+g.eq.abs(d(ip))) 
a  .and.(abs(d(iq))+g.eq.abs(d(iq))))then 
a(ip,iq)=0. 

else  if(abs(a(ip,iq)).gt.tresh)then 
h=d(iq)-d(ip) 
if(abs(h) +g.eq.abs(h))then 
t=a(ip,iq)/h 
else 

theta = 0 . 5  *h/a(ip,  iq) 
t=  1  ./(abs(theta) +sqrt(l .  +theta**2)) 
if(theta.lt.0.)t=-t 
endif 
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c=l./sqrt(l+t**2) 

tau=s/(l.+c) 

h=t*a(ip,iq) 

z(ip)=z(ip)-h 

z(iq)=z(iq)+h 

d(ip)=d(ip)-h 

d(iq)=d(iq)+h 

a(ip,iq)=0. 

do  16  j  =  l,ip-l 

g=a(j,ip) 

h=a(j,iq) 

aO>ip)=g-s*(h+g*tau) 
a(j  ,iq) = h + s*(g-h*tau) 

16  continue 

do  17  j=ip+l,iq-l 
g=a(ip,j) 
h=a(j,iq) 

a(ip,j)=g-s*(h+g*tau) 
a(j,i^=h+s*(g-h  *tau) 

17  continue 

do  18j=iq+l,n 
g=a(ipj) 
h=a(iq,j) 

a(ipj)  =g-s*(h +g*tau) 
a(iqj)=h+s*(g-h*tau) 

18  continue 
do  19  j  =  l,n 

g=vO',ip) 

h=v(j,iq) 

v(j  ,ip)  =g-s*(h +g*tau) 
v(j  ,iq)  =h+s*(g-h*tau) 

19  continue 
nrot=nrot4-l 

endif 

21  continue 

22  continue 

do  23  ip=l,n 
b(ip)=b(ip)+z(ip) 
d(ip)=b(ip) 
z(ip)=0. 

23  continue 

24  continue 

pause  ’50  iterations  should  never  happen’ 
return 
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/ 


9000  format(lx,i4) 

9001  format(lx,f8.4) 
end 

c 

0  ^^^3jcsic3|f9K5}J3K5i^3ic>|c3K^5K3j<5ic9K^3K9l53|c%9}f3ic9jc^9jcj|c5icj|C3!cjjcj|c3(cj|cjfcjJC3|c}Je9lc^9je:JC3(f3jeal{sjes(c^}JcjJe5jcJlc3je}|e^sicjJe^j§e3jc}Je3jc5jejjc3ies|cjje:Jc 

c 

subroutine  acoeff 
c 

c  this  routine  calculates  the  a-coefficient  for  the  various 
c  hyperfme  transitions  when  there  is  magnetic  field  splitting, 
c  of  the  possible  288  transitions  most  are  forbidden  by  the 
c  selection  rules, 

c  the  arrays  al,ar,and  az  contain  the  a  coefficients  for  the 
c  left  handed  circularly  polarized,  the  right  handed  circularly 

c  polarized,  and  the  linearly  polarized  transitions,  these 

c  arrays  contain  matrix  elements  of  the  magnetic  dipole  operator 
c  between  eigenstates  formed  from  a  combination  of  basis  states, 
c  recall  that  the  matrix  elements  of  the  magnetic  dipole  operator 
c  between  basis  states  are  already  stored  in  arrays  tl,tr,  and  tz. 
c  the  wavenumbers  for  all  possible  transitions  are  stored  in 
c  the  array  wave. 

c  the  age  of  the  galaxy  is  taken  as  5.el7  sec.  any  transition 
c  with  a  longer  lifetime  is  arbitrarily  set  to  zero, 
c 

c - 

c 

common  /upper/  nvecu,evalu(12),evectu(12,12),peturb(12,12) 
common  /lower/  nvecl,evall(24),evectl(24,24),plower(24,24) 
common  /dipole/  tl(12,24),tr(12,24),tz(12,24) 
common  /transit/  wlase(6),wave(12,24),aq(12,24),ar(12,24), 
a  az(12,24) 

common  /prob/  pl(12,24),pr(12,24),pz(12,24) 
common  /const/  planck,c, pi, alpha, ele,rad,bohr,t0 
c 

ifirst=l 

age=5.el7 

c 

c - 

c 

if(ifirst.gt.l)  go  to  100 
c 

c  factor  was  broken  down  to  avoid  the  use  of  double  precision 
c 

factor  =  64.*(pi**4)*(ele*rad*alpha/2.)/planck/3.0 
factor  =  factor*ele*rad*alpha/2. 
ifirst  =  ifirSt  +  1 


100  continue 


c 

c 

c 


do  300  i=l,nvecl 
do  200  j  =  l,nvecu 

wave(j,i)  =  (evaluO)  -  evall(i))  +  tO 
200  continue 
300  continue 

transform  matrix  elements  from  basis  states  to  eigenstates 


do  700  i=l,nvecu 
do  600  j  =  l,nvecl 
suml  =  0.0 
sumr  =  0.0 
sumz  =  0.0 
do  500  k=l,nvecu 
do  400  1=  l.nvecl 

suml  =  suml  +  evectu(k,i)*tl(k,l)*evectl(l,j) 
sumr  =  sumr  +  evectu(k,i)*tr(k,l)*evectl(l,j) 
sumz  =  sumz  +  evectu(k,i)*tz(k,l)*evectl(l,j) 
400  continue 

500  continue 

pl(i,j)  =  suml**2 
pr(i,j)  =  sumr**2 
pz(i,j)  =  sumz**2 
600  continue 
700  continue 

sump  =  0.0 
do  900  i  =  l,nvecu 
do  800  j  =  l,nvecl 
fl  =  factor*wave(i,j)**3 
aq(ij)  =  fl*pl(i,j) 

ar(i,j)  =  fl’^pr(i,j) 
az(i,j)  =  fl*pz(i,j) 

sump  =  sump  +  pl(i,j)  +  pr(i,j)  +  pz(i,j) 

800  continue 
900  continue 


rage  =  l./age 
suma  =  0.0 
do  1100  i=l,nvecu 
do  1000  j  =  l,nvecl 
if(aq(i,j).lt.rage)  aq(ij)  =  0.0 
if(ar(i,j).lt.rage)  ar(i,j)  =  0.0 
if(az(i,j).lt.rage)  az(i,j)  =  0.0 
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suma  =  suma  +  aq(i,j)  +  ar(i,j)  +  az(i,j) 

1000  continue 
1100  continue 
c 

suma  =  suma/ 12. 
write(7,9000)  sump, suma 
c 

return 

9000  format(///,10x, ’total  transition  probability  ’,el2.6, 
a  ///, lOx, ’total  a-coefficient  ’,el2.6) 

9500  format(i4,5(el2.5)) 
end 
c 

c 

function  delta(ri,ij) 
c 

c - 

c 

c  This  is  the  kronecker  delta.  It  is  non-zero  only  when  ri 
c  equals  ij  within  round  off  error, 
c 

round=l.e-12 

c 

delta  =  0.0 

if(abs(ri-rj).lt.round)  delta  =1.0 
c 

return 

end 

c 

c 

subroutine  absorb 
c 

c  In  this  routine  the  degeneracy  is  considered  removed  and  a 
c  line  center  absorption  is  calculated  for  each  transition, 
c 

c - 

c 

com  mon/upper/  n  vecu ,  evalu(  1 2)  ,evectu  (12,12)  ,peturb  (12,12) 
common/lower/  nvecl,evall(24),evectl(24,24),plower(24,24) 
common/transit/  wlase(6),wave(12,24),aq(12,24),ar(12,24),az(12,24) 
common/sigma/  sigmal(  12,24), sigmar(  12 ,24) , sigma2(  12,24) 
common/line/  wdopp, wlomz, ratio , voigtO, npts ,  shape(  101), 
a  rl(101),rr(101),rz(101) 

common/const/  planck,c,pi,alpha,ele,rad,bohr,tO 
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/ 


c 

ifirst=l 

c 

c - 

c 

if(ifirst.gt.l)  go  to  100 
store  =  voigt0/(8.*pi) 
store  =  store/ 12. 
ifirst  =  ifirst  +  1 
100  continue 
c 

do  300  i  =  l,nvecu 
do  200  j  =  1  ,nvecl 

sigmal(i,j)  =  store*aq(i,j)/wave(i,j)**2 
sigmar(i,j)  =  store*ar(i,j)/wave(i,j)**2 
sigmaz(i,j)  =  store*a2(i,j)/wave(i,j)**2 
200  continue 
300  continue 
c 

return 

end 

c 

C 

subroutine  scan(wavmax,wavniin) 
c 

c  this  routine  scans  the  various  transitions  to  find  the 
c  max  and  min  wavelengths, 
c 

c - 

c 

common/upper/  nvecu,evalu(12),evectu(12, 12),peturb(12, 12) 
common/lower/  nvecl,evall(24),evectl(24,24),plower(24,24) 
common/transit/  wlase(6),wave(12,24),aq(12,24),ar(12,24),az(12,24) 
common/line/  wdopp,wlomz, ratio, voigt0,npts,shape(101), 
a  rl(101),rr(101),rz(101) 

c 

C - 

c 

wavmax  =  wlase(l) 
wavmin  =  wlase(l) 
testl  =  wavmin 
testr  =  wavmin 
testz  =  wavmin 
c 

do  200  i=l,nvecu 
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do  100j  =  l,nvecl 
if(aq(i,j).gt.0.0)  testl  =  wave(i,j) 
if(ar(ij).gt.0.0)  testr  =  wave(i,j) 
if(az(i,j).gt.O.O)  testz  =  wave(ij) 
wavmax  =  aniaxl(wavmax, testl, testr, testz, 7603. 50) 
wavmin  =  aminl(wavmin,testl,testr,testz,7602.35) 

100  continue 
200  continue 
c 

return 

end 

c 

c 

subroutine  gain  (wavmax ,  wavmin ,  ifield) 
c 

c  this  routine  scans  a  particular  wavelength  range  to  find  the 
c  maximum  value  of  the  stimulated  emission  cross  section, 
c 

c - 

c 

double  precision  xarray(8000) 

common/upper/  nvecu,evalu(12),evectu(12,12),peturb(12,12) 
common/lower/  nvecl , evall(24) ,  evectl(24 , 24)  ,plower(24 ,24) 
common/transit/  wlase(6),wave(12,24),aq(12,24),ar(12,24),az(12,24) 
common/sigma/  sigmal(12,24),sigmar(12,24),sigmaz(12,24) 
common/line/  wdopp,wlomz,ratio,voigt0,npts,shape(101), 
a  rl(101),rr(101),rz(101) 

common/ginteg/  gnul(8000),gnur(8000),gnuz(8000),nstep, 
a  delx  ( 1 0) ,  X  total ,  broad  ( 1 6000) ,  nbig ,  ncent , 

b  xarray,ncount,bigger,nlin,nright,nleft 

common/ const/  planck, c , pi , alpha, ele, rad , bohr,  tO 
common/gains/  svl,sv2,sv3 
c 

c - 

c 

c 

rmax  =  wavmax  +  5.*wdopp/c 
rmin  =  wavmin  -  5.*wdopp/c 
step  =  (rmax  -  rmin)/fioat(nstep  -  1) 
c 

do  600  i=l,nstep 
gnul(i)  =0.0 
gnur(i)  =0.0 
gnuz(i)  =  0.0 
600  continue 


do  300  i  =  l,nvecu 
do  200  j  =  l,nvecl 
tempi  =  sigmal(ij) 
temp2  =  sigmar(ij) 
temps  =  sigmaz(i,j) 
rO  =  (rmin  -  wave(i,j))/step 
index  =  ifix(r0  +  sign(.5,r0))  +  ncent  -  1 
if(index.lt.O)  index  =  0 
nend  =  nstep 
nn  =  nbig  -  index  -  nstep 
if(nn.lt.O)  nend  =  nend  +  nn 
do  100  k=l,nend 

gnul(k)  =  gnul(k)  +  tempi  *broad(index  +  k) 
gnur(k)  =  gnur(k)  +  temp2*broad(index  +  k) 
gnuz(k)  =  gnuz(k)  +  temp3*broad(index  +  k) 
100  continue 
200  continue 
300  continue 

gOmaxl  =  0.0 
g0max2  =  0.0 
g0max3  =  0.0 
index  1  =  0 
index2  =  0 
index3  =  0 

do  400  i  =  l, nstep 
gOmaxl  =  amaxl(g0maxl,gnul(i)) 
g0max2  =  amaxl(g0max2,gnur(i)) 
g0max3  =  amaxl(g0max3,gnuz(i)) 
if(g0maxl.eq.gnul(i))  indexl  =i 
if(g0max2.eq.gnur(i))  index2  =  i 
if(g0max3.eq.gnuz(i))  index3  =  i 
400  continue 

save  max  gains  on  first  pass  through  this  routine 
(this  is  the  zero-field  case) 
if(ifield.eq.0)  svl  =  gOmaxl 
if(ifield.eq.0)  sv2  =  g0max2 
if(ifield.eq.0)  sv3  =  g0max3 

rgOl  =  rmin  +  step*float(indexl  -  1) 
rg02  =  rmin  -t-  step*float(index2  -  1) 
rg03  =  rmin  4-  step*float(index3  -  1) 


write(7,9(X)0)  rmin, max, step, gOrnaxl.rgOl 
write(7,9100) 

write(7,9000)  rmin,rmax,step,g0max2,rg02 
write(7,9200) 

write(7 ,9000)  rmin ,  max ,  step ,  g0max3 ,  rg03 
write(7,9300) 
c 

650  continue 
c 

c  set  up  array  of  wavenumbers  so  that  the  entire  spectrum  can 
c  be  plotted  in  PLOTIT5 
c  also  scale  gain  arrays  to  zero  field  value 
do  700  i=l,nstep 

xarray(i)  =  dble(rmin)  +  dble(step)*dble(float(i-l)) 
gnul(i)  =  gnul(i)/svl 
gnur(i)  =  gnur(i)/sv2 
gnuz(i)  =  gnuz(i)/sv3 
700  continue 
c 

return 

9000  format(//,5x,’in  a  wavenumber  scan  from  ’,fl2.6,’  1/cm  to  ’, 
a  fl2.6,’  1/cm  in  steps  of  ’,el2.6,’  l/cm’,/,5x, 
b  ’a  maximum  stimulated  emission  cross  section  of ’,el2.6, 
c  ’  sq  cm  was  found. ’,/,5x, ’this  maximum  value  occurs  ’, 
d  ’at  a  position  of  ’,fl2.6,’  1/cm’) 

9100  format(5x,’with  left  handed  polarization  ’) 

9200  format(5x,’with  right  handed  polarization’) 

9300  format(5x,’with  linear  polarization’) 
c 

end 

c 

c 

subroutine  setlin(wavmax,wavmin) 
c 

c  this  routine  initializes  the  array  broad  with  line  shape 
c  information,  the  location  broad(ncent)  contains  the  center 
c  of  the  symmetric  line  shape  profile, 
c 

c - 

c 

double  precision  xarray(8000) 

common/line/  wdopp,wlomz,ratio,voigt0,npts,shape(101), 
a  rl(101),rr(101),rz(101) 

common  /ginteg/  gnul(8000),gnur(8000),gnuz(8000),nstep, 
a  delx(10),xtotal,broad(16000),nbig,ncent, 
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b  xarray,ncount, bigger, nlin,nright,nleft 

common/const/  planck,c, pi, alpha, ele, rad, bohr,tO 


c 

c - 

c 

c 

rmax  =  wavmax  +  5.*wdopp/c 
rmin  =  wavmin  -  5.*wdopp/c 
step  =  c*(rmax  -  rmin)/float(nstep-l) 

X  =  0.0 

call  erf(x,ratio,rim,reO) 
c 

do  100  i=l,nbig 
broad(i)  =  0.0 
100  continue 
c 

istart  =  ncent  +  1 
broad(ncent)  =  1.0 
delnu  =  0.0 
do  200  i=istart,nbig 
delnu  =  delnu  +  step 
iback  =  ncent  -  (i  -  ncent) 

X  =  -2.*sqrt(alog(2.))*delnu/wdopp 
call  erf (x, ratio, rim, re) 
broad  (i)  =  re/reO 
broad  (iback)  =  broad  (i) 
if(broad(i).lt.l.e-6)  go  to  300 
200  continue 
300  continue 
c 

return 

end 

c 

g  JK*=C*>i<J|c****5t:=(=**5CJK=i<=|tJ|cJic*Jtc******:|c>Kj|<l|=**!itJ|!******JC****s|c*J|c**JKJ|cJieKc*j|t**j*:*****,|t**# 

c 

subroutine  exprt(wavmax, wavmin) 
c 

c  this  routine  searches  the  integrated  gain  arrays  for 
c  comparison  with  experiment, 
c 

c - 

c 

double  precision  xaiTay(8000) 

common/line/  wdopp,wlomz,ratio,voigt0,npts,shape(101), 
a  rl(101),rr(101),rz(101) 

common  /ginteg/  gnul(8000),gnur(8000),gnuz(8000),nstep, 
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a  delx(10),xtotal,broad(16000),nbig,ncent, 

b  xarray ,  ncount,  bigger ,  nlin ,  nright ,  nleft 

common/const/  planck,c, pi, alpha, ele, rad, bohr,tO 
c 

c - 

c 

gOl  =  0.0 
gOr  =  0.0 
gOz  =  0.0 
do  100  i=l,nstep 
gOl  =  amaxl(g01,gnul(i)) 
if(g01.eq.gnul(i))  il  =  i 
gOr  =  amaxl(gOr,gnur(i)) 
if(gOr.eq.gnur(i))  ir  =  i 
gOz  =  amaxl(gOz,gnuz(i)) 
if(gOz.eq.gnuz(i))  iz  =  i 
100  continue 
c 

rmin  =  wavmin  -  S.’^'wdopp/c 
rmax  =  wavmax  +  5.*wdopp/c 
step  =  (rmax  -  rmin)/float(nstep  -  1) 
c 

mul  =  rmin  +  float(il  -  l)*step 
mur  =  rmin  +  float(ir  -  l)*step 
muz  =  rmin  +  float(iz  -  l)*step 
c 

c  Divide  integrared  gains  by  total  integration  length 
c 

gOl  =  gOl/xtotal 
gOr  =  gOr/xtotal 
gOz  =  gOz/xtotal 
c 

write(7,9000) 

write(7 , 9 1 00)  gOl , mu  1 , gOr ,  mur ,  gOz , muz 
c 

return 

9000  format(///,50x, ’maximum  gains’, /25x, ’polarization’, 9x, ’gain’, 
a  1  Ox, ’wavenumber’,/) 

9100  format(25x,’left  handed  ’,5x,el2.6,5x,fl2.6,/, 
a  25x, ’right  handed’,5x,el2.6,5x,fl2.6,/, 

b  25x, ’linear  ’,5x,el2.6,5x,fl2.6) 

end 
c 

c 

subroutine  synth 
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c 

c  this  routine  calculates  the  absorption  at  the  position  of  the 
c  3-4  transition  in  zero  field, 
c 

c - 

c 

common  /upper/  nvecu,evalu(12),evectu(12,12),peturb(12,12) 
common  /lower/  nvecl,evall(24),evectl(24,24),plower(24,24) 
common  /transit/  wlase(6),wave(12,24),aq(12,24),ar(12,24), 
a  az(12,24) 

common  /sigma/  sigmal(12,24),sigmar(12,24),sigmaz(12,24) 
common  /line/  wdopp,wlomz, ratio, voigt0,npts,shape(101), 

a  rl(101),rr(101),rz(101) 

common  /const/  planck,c, pi, alpha, ele, rad, bohr,tO 
c 

c - 

c 

X  =  0.0 

call  erf(x, ratio, rim,re0) 
c 

do  400  i  =  l,npts 
mu  =  shape(i)*l.e6 
suml  =  0.0 
sumr  =  0.0 
sumz  =  0.0 
do  300  j  =  l,nvecu 
do  200  k=l,nvecl 

delnu  =  mu  +  c*(wlase(l)  -  wave(j,k)) 

X  =  -2.*sqrt(alog(2.))’''delnu/wdopp 
call  erf(x,ratio,rim,re) 
suml  =  suml  ■+■  re*sigmal(j,k)/re0 
sumr  =  sumr  +  re*sigmar(j,k)/re0 
sumz  =  sumz  +  re*sigmaz(j,k)/re0 
200  continue 
300  continue 
rl(i)  =  suml 
rr(i)  =  sumr 
rz(i)  =  sumz 
400  continue 
c 

return 

end 

c 

C 

subroutine  synth2(absrb) 
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this  routine  synthesizes  the  absorption  spectrum  over 
a  bandwidth  which  includes  all  the  lines  in  the  spin-orbit 
spectrum,  this  bandwidth  is  broken  up  into  nband  points. 


common/upper/  nvecu,evalu(12),evectu(12, 12),peturb(12, 12) 
common/lower/  nvecl ,  evall(24)  ,evectl(24 , 24)  ,plower(24 ,24) 
common/transit/  wlase(6),wave(12,24),aq(12,24),ar(12,24),az(12,24) 
common/sigma/  sigmal(12,24),sigmar(12,24),sigmaz(12,24) 
common/band/  width ,  nband  ,bandw(8000)  ,rlwide(8000) 
common/line/  wdopp ,  wlomz, ratio, voigtO ,  npts ,  shape(  10 1 ) , 
a  rl(101),rr(101),rz(101) 

common/const/  planck,c,pi,alpha,ele,rad,bohr,tO 


start  =  -width/2. 

del  =  width/float(nband) 

f  =  start 

do  300  i=l, nband 
sum  =  0.0 
do  200  j  =  l,nvecu 
do  100  k=l, nvecl 

delnu  =  f  -I-  c*(t0  -  wave(j,k)) 

X  =  -2.*sqrt(alog(2.))*delnu/wdopp 

call  erf(x, ratio, rim, re) 

sum  =  sum  -I-  re*sigmal(j,k) 

100  continue 
200  continue 
bandw(i)  =  f 
f  =  f  -I-  del 
rlwide(i)  =  sum/absrb 
300  continue 

return 

end 

subroutine  synth3 

this  routine  calculates  the  absorption  at  the  position  of  the 
varius  transitions  in  zero  field,  maximum  and  values  are  stored 
for  future  reference. 


common/upper/  nvecu,evalu(12),evectu(12,12),peturb(12,12) 
common/lower/  nvecl ,  evall(24)  ,evectl(24 , 24)  ,plower(24 , 24) 
common/transit/  wlase(6),wave(12,24),aq(12,24),ar(12,24),az(12,24) 
common/sigma/  sigmal(12,24),signiar(12,24),sigmaz(12,24) 
common/line/  wdopp ,  wlomz, ratio ,voigtO , npts ,  shape(  10 1 ) , 
a  rl(101),rr(101),rz(101) 

common/hyper/  amaxl(6) , aminl(6)  ,amaxr(6) , aminr(6) , 
c  amaxz(6),aminz(6) 

common/const/  planck,c, pi, alpha, ele, rad, bohr,t0 
c 

istart=26 
iend=76 
c  ifirst=l 
c 

- - 

c 

do  150  i=l,6 
amaxr(i)  =  0.0 
aniinr(i)  =  1.0 
amaxl(i)  =  0.0 
aminl(i)  =  1.0 
amaxz(i)  =  0.0 
aminz(i)  =  1.0 
150  continue 
c 

do  500  m=l,6 
do  400  i=istart,iend 
mu  =  shape(i)*l.e6 
suml  =  0.0 
sumr  =  0.0 
sumz  =  0.0 
do  300  j  =  l,nvecu 
do  200  k=l, nvecl 

delnu  =  mu  +  c*(wlase(m)  -  wave(j,k)) 

X  =  -2.*sqrt(alog(2.))*delnu/wdopp 
call  erf(x,ratio,rini,re) 
suml  =  suml  +  re*sigmal(j,k) 
sumr  =  sumr  +  re*sigmar(j,k) 
sumz  =  sumz  +  re*sigmaz(j,k) 

200  continue 
300  continue 

amaxl(m)  =  amaxl(suml,amaxl(m)) 
aminl(m)  =  aminl(suml,aminl(m)) 


amaxr(m)  =  amaxl(sumr,amaxr(m)) 
aminr(m)  =  aminl(sumr,aminr(m)) 
amaxz(m)  =  amaxl(sumz,aniaxz(m)) 
aminz(m)  =  aminl(sumz,aminz(m)) 

400  continue 
500  continue 
c 

return 

end 

c 

C 

subroutine  normal(n, array) 
c 

c  this  routine  assumes  that  the  eigenvectors  are  stored  as 
c  columns  in  ’array’,  this  routine  normalizes  the  eigenvectors, 
c 

c - 

c 

dimension  array (n,n) 
c 

c - 

c 

do  300  i=l,n 
sum  =  0.0 
do  100j  =  l,n 

sum  =  sum  +  array(i,j)**2 
100  continue 

if(sum.eq.0.0)  go  to  400 
do  200  j  =  l,n 

array(i,j)  =  array(i,j)/sqrt(sum) 

200  continue 
300  continue 
c 

400  continue 

if(sum.eq.0.0)  write(7,9000) 
if(sum.eq.0.0)  stop 
c 

return 

c 

9000  format(lhl,//,10x, ’program  terminated  -  zero  length  ’ 
a  ’eigenvector  found’) 
end 
c 


subroutine  matout(array,n,m,msg) 
c 

c  This  routing  writes  out  the  n  by  m  array, 
c 

- - 

c 

dimension  array(n,m) 
character*8  msg(7) 
c 

- - 

c 

write(7,9000)  (msg(i)  ,i  =  1 ,7) 
do  100  i=l,n 

write(7,9 100)  (array(i,j) ,j  =  1 , m) 

100  continue 
c 

return 

9000  format(//,5x,10a8,//) 

9100  format(lx,12(el0.4,lx),/) 
c 

end 

c 

Q  ************* *’|c*****5i<**5jc:j€s|e:i{:j<s|«sje3ic3Kiic^3jc5!<aie3|e5j<^s}cjjc:i<j}e>ic5}c3ie>|C3K*3i«5*cs|c****Jjc*3i<a|c*5K5|e3ie3|e*:Jc3l«sJe 

c 

subroutine  vecout(vec,n,msg) 
c 

c  this  routine  writes  out  the  vector  vec. 
c 

- - 

c 

dimension  vec(n) 
character*8  msg(7) 
c 

- - 

c 

write(7,9000)  (msg(i),i  =  1 ,7) 
do  100  i  =  l,n 
write(7,9100)  vec(i) 

100  continue 
c 

return 

9000  format(//,5x,10a8,/) 

9100  format(50x,el0.4) 
end 


c 
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subroutine  output(h,absrb) 


this  routine  outputs  all  the  transitions,  their  polarizations, 
a  coefficients  and  wavenumber. 


common/upper/  nvecu,evalu(12),evectu(12, 12),peturb(12, 12) 
common/basisu/  nrepu  ,idimu(7) ,  rmiu(  12) ,  rmj  u  ( 1 2) ,  ifu(  1 2) 
common/lower/  nvecl  ,evall(24) , evectl(24 , 24)  ,plower(24 , 24) 
common/basisl/  nrepl,idiml(9),rmil(24),nnjl(24),ifl(24) 
common/transit/  wlase(6),wave(12,24),aq(12,24),ar(12,24),az(12,24) 
common/prob/  pl(12,24),pr(12,24),pz(12,24) 
common/line/  wdopp ,  wlornz, ratio , voigtO ,  npts ,  shape(  10 1 ) , 
a  rl(101),rr(101),rz(101) 

common  /plotv/  rlsave(101,25),rrsave(101,25),rzsave(101,25), 
a  field(160),nfield 

common/hyper/  amaxl(6)  ,aminl(6)  ,amaxr(6)  ,aminr(6) , 
c  amaxz(6) ,  aminz(6) 

icount=0 


icount  =  icount  +  1 
write(7,9000)  h 


do  200  i=l,nvecu 
do  100  j  =  l, nvecl 

if(aq(i,j).gt.0.0)  write(7,9100)  i,j,ifu(i),ifl(j),pl(i,j), 
a  aq(i,j),wave(i,j) 

if(ar(i,j).gt.0.0)  write(7,9200)  i,j,ifu(i),iflO‘),pr(i,j), 
a  ar(i,j),wave(i,j) 

if(az(i,j).gt.0.0)  write(7,9300)  i,j,ifu(i),ifl(j),pz(i,j), 
a  az(i,j),wave(i,j) 

100  continue 
200  continue 


write(7,9400) 
do  300  i=l,npts 

write(7,9500)  shape(i) ,rl(i),rr(i) ,rz(i) 
300  continue 

if(icount.gt.  1)  go  to  500 
absrb  =  0.0 


do  400  i=l,npts 

absrb  =  amaxl(absrb,rl(i),rr(i),rz(i)) 

400  continue 
500  continue 

write(7,9600)  absrb 
c 

do  600  i=l,npts 
rl(i)  =  rl(i)/absrb 
rr(i)  =  rr(i)/absrb 
rz(i)  =  rz(i)/absrb 
600  continue 
c 

do  700  i=l,npts 
rlsave(i,icount)  =  rl(i) 
rrsave(i,icount)  =  rr(i) 
rzsave(i,icount)  =  rz(i) 

700  continue 
c 

write(7,9700) 
do  800  i=l,6 
if(i.le.3)  ia  =  3 
if(i.gt.3)  ia  =  2 
if(ia.eq.3)  ib  =  5  -  i 
if(ia.eq.2)  ib  =  7  -  i 
write(7,9800)  ia,ib,amaxl(i),aminl(i) 
write(7,9800)  ia,ib,aniaxr(i),aminr(i) 
write(7,9800)  ia,ib,amaxz(i),aminz(i) 

800  continue 
c 

return 

c 

9000  format(lhl,//,40x, ’transitions  at  a  field  strength  of 
a  el2.6,’  oe’,///,2x, ’eigenvector’, 6x, ’mi  +  mj’,19x, 
b  ’polarization’ ,  14x,  ’probability’  ,5x,  ’a-coefficient’, 

c  5x, ’line  position’,/, 

c  lx, ’upper  lower’,3x, ’upper  lower’, 5x, 

d  ’left  handed  right  handed  linear’,25x, 

e  ’  1/sec’,  13x,’ 1/cm’,/) 

9100  format(lx,i3,4x,i3,5x,i3,4x,i3,t39,’x’,t73,fl0.8,5x,fl2.9,7x, 

a  fll.6) 

9200  format(lx,i3,4x,i3,5x,i3,4x,i3,t53,’x’,t73,fl0.8,5x,fl2.9,7x, 
a  fll.6) 

9300  format(lx,i3,4x,i3,5x,i3,4x,i3,t64,’x’,t73,fl0.8,5x,fl2.9,7x, 
a  fll.6) 

9400  format(lhl,//,33x, ’absorption  cross  section  for  various  ’ 
a  ’polarizations  (sq  cm)’,/,30x,’detuning’,7x,’left handed’. 
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b  5x, ’right  handed’, 8x, ’linear’,/) 

9500  format(30x,f8.2,7x,el0.4,7x,el0.4,7x,el0.4) 

9600  format(45x, ’maximum  absorption  coefficient  ’,el2.6,/,45x, 
a  ’plots  scaled  by  this  factor’) 

9700  format(///,10x,’abrorption  across  line  profile  for  various  ’ 
a  ’transitions  and  polarizations’, /,8x, ’transition’, 

b  32x,  ’absorption’  ,/,6x,  ’upper’  ,5x,  ’lower’  ,23x,  ’max’ , 

c  15x,’min’) 

9800  format(7x,i2,8x,i2,21x,el2.6,5x,el2,6) 
end 
c 

c 

subroutine  find(start,end) 
c 

c  This  routine  locates  the  point  where  the  line  shape  factor 
c  has  decreased  by  3  orders  of  magnitude,  this  information  is 
c  used  in  setting  up  the  plots,  values  are  returned  in  mhz. 
c 
c 

c - 

c 

common/line/ wdopp,wlomz,ratio,voigt0,npts,shape(101), 
a  rl(101),rr(101),rz(101) 

c 

C - 

c 

del  =  .l*wdopp 
do  100  i=l,50 
delnu  =  del*float(i-l) 

X  =  -2.*sqrt(alog(2.))*delnu/wdopp 
call  erf(x, ratio, rim, re) 
if(re.le.0.001)  go  to  200 
100  continue 
200  continue 
c 

start  =  -delnu*  l.e-6 
end  =  delnu*l.e-6 
c 

return 

end 

c 

c 

subroutine  erf(x,y,rim,re) 
c 
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c  this  program  computes  the  error  function  for  complex  values  of  the 
c  argument,  it  computes  the  function 
c  exp(-z*’'‘2)*erfc(-i*z) 

c  where  z  =  x  +  i*y 

c  if  z  =  i*a  -  del,  where  a  =  sqrt(alog(2))*wlomz/wdopp 
c  and  del  =  2*sqrt(alog2)*(nu  -  nuO)/wdopp,  then  re  is  the  line 
c  shape  function 
c 
c 

- - 

c 

integer  capn,nu,n,npl 
real  x,y,re,rim 

real  h,h2,rlmbda,rl,r2,sl,s2,tl,t2,c,s 
logical  b,sign 
cst=  1.12837916709551 
sign =.  false, 
c 

- - 

c 

if(x.lt.0.0)  sign  =  . true, 
c  x=abs(x) 

if(x.lt.0.0)  x=0.0-x 

if(y.lt.4.29.and.x.lt.5.33)  go  to  100 

h=0.0 

capn  =  0 

nu  =  8 

go  to  200 

100  s=(1.0-y/4.29)*sqrt(1.0-x*x/28.41) 
h  =  1.6*s 
h2=2.0*h 
capn=6.5+23*s 
rlmbda=h2’‘‘*capn 
nu=9.5+21*s 
200  b  =  ,  false. 

if(h.eq.0.0.or.rlmbda.eq.0.0)  b  =  .true. 

400  rl  =  0.0 
r2  =  0.0 
si  =  0.0 
s2  =  0.0 
nupl=nu+l 
do  600  nn  =  l,nupl 
n=nu+l-nn 
npl=n+l 
tl=y+h+npl*rl 
t2=x-npPr2 
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c=.5/(tini+t2*t2) 

rl=c*tl 

r2=c*t2 

if(h.gt.O.O.and.n.le.capn)  go  to  500 
go  to  600 

500  tl=rlmbda+sl 
sl=rl*tl-r2*s2 
s2=r2*tl+rl*s2 
rlmbda = rlmbda/h2 
600  continue 
if(b)  go  to  700 
rim=cst*s2 
re=cst*sl 
go  to  800 
700  rim=cst*r2 
re=cst*rl 

800  if(y.eq.0.0)  re=exp(-x*x) 
if(sign)  rim = -rim 
return 
end 
c 

Q  >|e 3jc 5jc sje jjc 3jc sje jjc  ^  ^  9{c9ic^9fc3fc9ic9fc:jc9{c9)e9fe:)c9)c3{e9]c9|c9{e9)( 

c 

subroutine  fileit(ifile,h, temp, press, ppbroad) 
c 

c - - - 

c 

double  precision  xarray(8000) 

common  /band/  width, nband,bandw(8000),rlwide(8000) 
common  /ginteg/  gnul(8000),gnur(8000),gnuz(8000),nstep, 
a  delx(  1 0) ,  xtotal  ,broad( 1 6000) ,  nbig ,  ncent , 

b  xarray,ncount,bigger,nlin,nright,nleft 

c 

c - 

c 

real  gnulr(8000),big 
real  xreal(8000) 
c 

character*62  Line2 
c 

character*7  si 
character*6  s2 
character^  s3 
character*4  s4 
c 

iplot  =  iplot  -I-  1 
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c  write(ifile,9000)  h, temp, press, ppbroad 

c 

if  (h.ne.O)  go  to  888 
nlin=0 
nright=0 
nleft=0 
biglin=0.0 
bigright=0.0 
bigleft=0.0 
ncount=0 
big=0 
c 

888  do  1  i=l,nstep 
gnulr(i)=0.0 
gnulr(i)=gnul(i)+gnur(i) 
if  (h.ne.O)  go  to  1 
if  (gnulr(i).le.big)  go  to  2 
ncount=i 
big=gnulr(i) 

2  if  (gnul(i).le.bigleft)  go  to  3 
nleft=i 

bigleft=gnul(i) 

3  if  (gnur(i).le.bigright)  go  to  4 
nright=i 
bigright=gnur(i) 

4  if  (gnuz(i).le.biglin)  go  to  1 
nlin=i 

biglin=gnuz(i) 

1  continue 

if  (h.eq.O)  bigger=big 
do5i  =  l,nstep 

gnulr(i)  =gnulr(i)/bigger 

5  continue 
c 

c  convert  xarray  to  a  real 
c 

do  101  i  =  1,8000 
xreal(i)  =  SNGL(xarray(i)) 

101  continue 
c 

write  (si,  ’(f7.1)’)  h 
write  (s2,  ’(f6.1)’)  temp 
write  (s3,  ’(f4.1)’)  press 
write  (s4 ,  ’  (f4 . 1 )  ’ )  ppbroad 
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Line2  =  ’B=’  //si  // 
’  Gauss  T=’  //  s2  // 

’  K  P=’  //  s3  // 

’  Torr  PB  =  ’  //  s4  // 

’  MHz/Torr’ 


call  agsetf  (’GRID/LEFT. ’,.10) 
call  agsetf  (’GRID/RIGHT. ’,.90) 
call  agsetf  (’GRID/BOTTOM. ’,.10) 
call  agsetf  (’GRID/TOP. ’,.75) 
call  agseti  (’LINE/MAXIMUM.’,  60) 
c 

c  Set  up  the  top  label 
c 

call  agsetc  (’LABEL/NAME. ’,’T’) 
call  agseti  (’LINE/NUMBER. ’,80) 
call  agsetc  (’LINE/TEXT.’,  Line2) 

call  agsetf  (’X/MINIMUM.’,  7602.25) 
call  agsetf  (’X/MAXIMUM.’,  7603.75) 

call  agsetf  (’Y/MINIMUM.’,  0.0) 
call  agsetf  (’Y/MAXIMUM.’,  1.0) 

call  agseti  (’AXIS/B/TICKS/MAJOR/SPACING/COUNT.’,  3) 
call  agsetf  (’AXIS/B/NUMERIC/WIDTH/MANTISSA.’,  0.05) 
call  agsetf  (’AXIS/B/NUMERIC/WIDTH/EXPONENT.’,  0.03) 

call  ANOTAT  (’l/cm’,’G/Go’,0,0,0,0) 

call  EZXY  (xreal,gnuz,nstep,’GAIN  SPECTRUM:  P  POLARIZATION’) 
c 

return 

9000  format(lx,d25.16,4(el3.8,’  ’)) 

9100  format(lx,d25.16,2(el3.8,’  ’)) 
end 
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G/Go 


GAIN  SPECTRUM.  P  POLARIZATION 

B=  B.0  G*uit  T=  300.0  K  P=60.0  Torr  PB=11.3  MHi/Torr 


l/cm 


Figure  A-1  Output  of  Vector  Model  Evaluated  for  Zero  Field 
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Appendix  B.  Rate  Equation  Model 


The  following  is  a  listing  of  the  rate  equation  model  which  integrates  the  kinetic 
processes  of  an  atomic  iodine  photodissociation  laser  over  time.  The  initial  effort  was 
started  about  1987  by  Ralph  Tate  on  a  PC/AT  computer  at  the  Air  Force  Weapons 
Laboratory  Chemical  Laser  Facility.  Since  1991, 1  have  changed  and  added  much,  using 
an  Iris  workstation  to  perform  the  calculations.  I  have  produced  several  different 
versions  of  the  code,  as  described  in  Section  2.4,  but  only  the  15  equation  model  named 
I.f  and  the  graphics  routines  to  plot  the  output  are  listed  below. 

Input  to  I.f  is  provided  by  a  test  file  listed  below: 

2.8  16.0  0.175  0.90  0.000000018  0.96415  10.0  0.0  60,0  0.0  0.0000000015  0.0000000004  1.0  0.0 


The  program  I.f  is  compiled  with  a  standard  FORTRAN  compiler,  and  the  DLSODE 
library  is  linked  in.  A  description  from  the  DLSODE  library  is  listed  below,  including 
author  and  version: 
c 

c***  from  netlib,  Wed  Mar  13  16:10:52  EST  1991  *** 
c 

subroutine  dlsode  (f,  neq,  y,  t,  tout,  itol,  rtol,  atol,  itask, 

1  istate,  iopt,  rwork,  Irw,  iwork,  liw,  jac,  mf) 

external  f,  jac 

integer  neq,  itol,  itask,  istate,  iopt,  Irw,  iwork,  liw,  mf 

double  precision  y,  t,  tout,  rtol,  atol,  rwork 

dimension  neq(l),  y(l),  rtol(l),  atol(l),  rwork(lrw),  iwork(liw) 

c - 

c  this  is  the  march  30,  1987  version  of 
c  Isode. .  livermore  solver  for  ordinary  differential  equations, 
c  this  version  is  in  double  precision, 
c 

c  Isode  solves  the  initial  value  problem  for  stiff  or  nonstiff 
c  systems  of  first  order  ode-s. 
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c  dy/dt  =  f(t,y)  ,  or,  in  component  form, 
c  dy(i)/dt  =  f(i)  =  f(i,t,y(l),y(2),...,y(neq))(i  =  l,...,neq). 
c  Isode  is  a  package  based  on  the  gear  and  gearb  packages,  and  on  the 
c  October  23,  1978  version  of  the  tentative  odepack  user  interface 
c  standard,  with  minor  modifications. 

c - 

c  reference.. 

c  alan  c.  hindmarsh,  odepack,  a  systematized  collection  of  ode 
c  solvers,  in  scientific  computing,  r.  s.  stepleman  et  al.  (eds.), 
c  north-holland,  amsterdam,  1983,  pp.  55-64. 

c - 

c  author  and  contact.,  alan  c.  hindmarsh, 

c  computing  and  mathematics  research  div.,  1-316 

c  lawrence  livermore  national  laboratory 

c  livermore,  ca  94550. 

- - 


After  the  code  is  compiled,  it  is  executed,  producing  an  output  file  in  a  standard  binary 
format.  The  output  file  is  read  by  the  graphics  routines  that  follow  the  code  listing,  and 
standard  Computer  Graphics  Metafile  (CGM)  files  are  produced.  The  graphics  routines 
were  written  to  be  compiled  with  the  NCAR  Graphics  library.  The  CGM  files  produced 
by  the  routines  in  the  NCAR  Graphics  library  are  translated  to  postscript  and  sent  to  a 
printer. 


C 

c  ATOMIC  IODINE  PHOTODISSOCIATION  LASER  RATE  EQUATION  MODEL 

16NIPQRS 

c 

Q  ******************SiC***:}C*5j<5}C5iC*5K*******JiC**5}C5|<SfC3|CJj«:Jc:}C**********5lC************ 

c 

c  B.  Scott  Hunt 
c 

c  last  modified  :  31  JUL  93 
c 

Q  *****************************Jlc***********5!c*****5jc****9!c**********Jics|ea|cs|ej|e3ic 

c 

c  This  code  solves  the  set  of  15  first  order  coupled  differential 
c  equations  listed  in  the  subroutine  fex.  These  equations  describe 
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c  an  excimer  pumped  (248nm)  pulsed  atomic  iodine  laser.  The  9  number 
c  density  equations  take  into  account  photolysis,  stimulated  emission, 
c  spontaneous  emission,  hyperfine  relaxation,  quenching,  and 
c  recombination.  The  6  intensity  equations  describe  the  intensity 
c  within  the  cavity  taking  into  account  losses  at  the  cell  windows  by 
c  ignoring  the  transit  time  of  the  light  between  the  widows  and 
c  resonator  mirrors  and  lumping  them  into  mirror  losses.  A  general 
c  loss  is  also  distributed  through  the  gain  region, 
c 

c 

implicit  real*8  (a-h,o-z) 

parameter(isize  =  1500,jsize  =  25,nsize  =  16,lsize  =  6) 
external  fex,  jex 

dimension  y (nsize) , rwork(22 + 9  *nsize + nsize*n size) ,  iwork(20 + nsize) , 

1  yp(lsize) ,  extrac(lsize) ,  ssg(lsize) ,  ssgold(lsize) , 

2  ssgmax(lsize) 
real  datar(isize,jsize) 

common  /user/  cavlos,sn34,sn33,sn32,sn23,sn22,sn21,fill,hnui, 

1  pump,relax(14),sigma(6),yield,qcf3i,qcf3,qi2,r, 

2  qar,par,temp,a34,a33,a32,a23,a22,a2i,ganlen,cavlen, 

3  recf3,dc2f6,di2,dcf3i,dar 
c 

c  This  opens  the  data  files: 
c 

open(unit=7,file= ’test’,status= ’old’) 
open(unit = 8,  file = ’data’ ,  form = ’  unformatted  ’ ,  status = ’new’) 
open(unit =9, file = ’text’ ,  status  =  ’new’) 
c 

c  This  reads  the  input  parameter  file: 
c 

read(7, *)  ganlen,cavlen, energy, yield,pdelt,r2, roc, 

1  dloss,pcf3i,par,rrcu,rrcl,tl,si 

1  format(A) 
c 

c  This  writes  the  parameters  out  to  the  screen: 
c 

write(9,ll) 

11  format(///) 
c 

write(9,12) 

12  format(20x, ’pulsed  P  16nipqr  model  ’/) 
c 

write(9,13)  ganlen 

13  format(/5x,’gain  length  =  ’,fl0.3,’  cm.’) 
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write(9, 14)  cavlen 

14  format(/5x, ’cavity  length  =  ’,fl0.3,’  cm.’) 
c 

write(9,15)  energy 

15  format(/5x,’uv  pump  energy  =  ’,fl0.3,’ joules’) 
c 

write(9,16)  yield*100.0 

16  format(/5x,’i*  yield  =  ’,fl0.3,’  %’) 
c 

write(9,17)  pdelt 

17  format(/5x, ’pump  pulse  width  =  ’,el0,3,’  secs  fwhm’) 
c 

write(9,18)  r2 

18  format(/5x, ’output  mirror  reflectivity  =  ’,fl0.3) 
c 

write(9,19)  dloss*100.0 

19  format(/5x, ’internal  loss  =  ’flO.3,’  %’) 
c 

write(9,20)  pcf3i 

20  format(/5x, ’iodide  pressure  =  ’,fl0.3,’  torr’) 
c 

write(9,21)  par 

21  format(/5x, ’argon  pressure  =  ’,fl0.3,’ torr’) 
c 

write(9,22)  rrcu 

22  format(/5x, ’upper  level  relaxation  rate  constant  =  ’,el0.2) 
c 

write(9,23)  rrcl 

23  format(/5x, ’lower  level  relaxation  rate  constant  =  ’,el0.2) 
c 

write(9,24)  tl 

24  format(/5x, ’window  transmission  =  ’,fl0.3,’  cm^3’) 
c 

write(9,25)  si 

25  format(/5x, ’scattering  losses  =  ’,fl0.3,’  cm'’‘3’) 
c 

Q  3|e5j«3tc5(e:Jc9|e*3|c:f:3ic5!cJiC3ic:ie5icj!«:jc5jc5!cjfcjl<3jcjj<:f::fc5jc:Jistc*5|c  COHStaJltS  *********************’*'****’i«’|c 
C 

hnu248  =  8.015d-19 
hnui  =  1.51d-19 
pi  =  0.314159d+01 
c  =  3.0dl0 
temp  =  300.0 
r  =  9.65d+18 
rl  =  0.998 
t2  =  tl 
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s2  =  si 
rad  =  0.5 
snfudg  =  1.0 
c 

c  cross  section  of  cf3i  at  248nm  from  max-planck 
c 

scf3i  =  3.d-19 
c 

c  pressure  broadening  coefficients  (hz/torr) 
c 

rcf3i  =  11.3d6 
rar  =  5.1d6 
ri  =  16.2d6 
c 

c  stimulated  emission  probabilities  (1/s) 
c 

a34  =  5.08 
a33  =  2.20 
a32  =  0.63 
a23  =  2.46 
a22  =  3.07 
a21  =  2.37 
c 

c  wavelengths  of  lasing  transitions  (cm) 
c 

wl34  =  1.31521d-4 
wl33  =  1.31519d-4 
wl32  =  1.31518d-4 
wl23  =  1.31530d-4 
wI22  =  1.31529d-4 
wl21  =  1.31529d-4 


c 

c  relaxation  rate  constants  (cc/s) 
c 


c 

relax(l)  -> 

u(2-3) 

rrcu 

c 

relax(2)  -  > 

u(3-2) 

(5/7)*u(2-3) 

c 

relax(3)  -  > 

1(4-3) 

rrcl 

c 

relax(4)  -  > 

1(4-2) 

rrcl 

c 

relax(5)  -> 

1(4-1) 

rrcl 

c 

relax(6)  -> 

1(3-2) 

rrcl 

c 

relax(7)  -> 

1(3-1) 

rrcl 

c 

relax(8)  -> 

1(2-1) 

rrcl 

c 

relax(9)  -> 

1(1-2) 

(5/3)*l(2-l) 

c 

relax(lO)  -> 

1(1-3) 

(7/3)*l(3-l) 

c 

relax(ll)  -> 

1(1-4) 

(9/3)*l(4-l) 

c 

relax(12)  -> 

1(2-3) 

(7/5)*l(3-2) 
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c  relax(13)  ->  1(2-4)  (9/5)*l(4-2) 

c  relax(14)  ->  1(3-4)  (9/7)*l(4-3) 

c 

relax(l)  =  rrcu 
relax(2)  =  (5.0/7.0)*relax(l) 
relax(3)  =  rrcl 
relax(4)  =  rrcl 
relax(5)  =  rrcl 
relax(6)  =  rrcl 
relax(7)  =  rrcl 
relax(8)  =  rrcl 
relax(9)  =  (5.0/3.0)*relax(8) 
relax(lO)  =  (7.0/3.0)»relax(7) 
relax(ll)  =  (9.0/3.0)*relax(5) 
relax(12)  =  (7.0/5.0)*relax(6) 
relax(13)  =  (9.0/5. 0)*relax(4) 
relax(14)  =  (9.0/7.0)*relax(3) 
c 

c  quenching  rate  constants  (cc/molecule  s) 
c 

qcfii  =  3.3d-17 
qcf3  =  O.ld-12 
qar  =  1.3d-19 
qi2  =  3.6d-ll 
c 

c  recombination  rate  constants  (cc/molecule  s) 
c 

recf3  =  1.6d-ll 
c 

c  dimerization  rate  constants  of  free  radicals  (cc/molecule  s) 
c 

dc2f6  =  5.5d-12 
c 

c  dimerization  rate  constants  of  iodine  (cm^6  molecule^-2  s^-1) 
c 

di2  =  3.9d-31 
c  dcf3i  =  1.3d-31 
dar  =  6.6d-33 
dcf3i  =  0.0 
c 

c  Set  initial  values: 
c 

do  51  i  =  l,isize 
do  52  j  =  ljsize 
datar(i,j)=0.0 
52  continue 
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51  continue 
do  53  i=l,nsize 
y(i)=0.0 

53  continue 

do  54  i=l,lsize 

yp(i)=0.0 

extrac(i)=0.0 

54  continue 

y(13)  =  (r*pcDi)/temp 
t  =  0.0 
tout  =  0.0 
deltat  =  l.Od-9 
exmr  =  0.0 
pump  =  0.0 
before  =  0.0 
tau  =  0.0 
c 

c  calculate  losses  due  to  scattering  and  transmission  at  r2 
c 

omega  =  t2*(l-r2-s2)/(l+r2*(t2**2)) 
c 

c  calculate  cavity  loss  rate  from  a  distributed  loss,  mirror 
c  contributions  and  transmission  losses 
c 

cavlos  =  (c/cavlen)*(dloss*ganlen+(l-rl*(tl**2))/(H-rl*(tl**2)) 
1  +(l-r2*(t2**2))/(l+r2*(t2**2))) 

c 

c  calculate  pump  term  from  cell  geometry; 
c 

area  =  pi*(rad*rad)  !  area  of  aperture 

volabs  =  ganlen*2.0*rad*1.3 
volext  =  area^ganlen 

eabs  =  energy*volext*((1.0-dexp(-(scf3I*y(13)*(1.0+rad))))- 
1  (1.0-dexp(-(scf3I*y(13)=*=(1.0-rad)))))/volabs 

pwr  =  eabs/(hnu248*volext) 
pnorm  =  2.0*dsqrt(dlog(0.2d+01))/(dsqrt(pi)*pdelt) 
fill  =  c^ganlen/cavlen 
c 

c  calculate  resonator  parameters 
c 

gl  =  1.0 

g2  =  1.0  -  (cavlen/(roc*  100.0)) 
wl  =  dsqrt((cavlen*1.315d-4/pi))* 

1  dsqrt(dsqrt(g2/(  1 . 0-g2))) 

w2  =  dsqrt((cavlen*1.315d-4/pi))* 

1  dsqrt(dsqrt(1.0/(g2*(1.0-g2)))) 
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spotl  =  pi*wl**2 
spot2  =  pi*w2**2 
c 

c  Set  up  the  line  shape  parameter  for  a  voigt: 
c 

wdopp  =  dsqrt(temp/300.0)*250.d6 
wlomz  =  pcf3i*rcf3i+par*rar 
ratio  =  dsqrt(dlog(.2d+01))*wlomz/wdopp 
c 

c  Find  line  shape  factor  at  line  center  for  normalized  voigt: 
c 

call  erf(0., ratio, rim, re) 
c 

c  Now  include  the  doppler  line  shape  normalization  factor: 
c 

pressO  =  2.0/(pi*wlornz) 
doppO  =  2.0*dsqrt(dlog(.2d+01)/pi)/wdopp 
voigtO  =  re*doppO 
c 

c  lower  level  relaxation  collisional  partner  (ar+cf3i) 
c 

cpl  =  (r*par+r*pcf3i)/temp 
c 

c  initial  stimulated  emission  cross  sections  (cm**2) 
c 

sigma(l)  =  a34*(wl34**2)*voigt0/(8.0*pi) 
sigma(2)  =  a33*(wl33**2)*voigt0/(8.0*pi) 
sigma(3)  =  a32*(wl32**2)‘^voigt0/(8.0*pi) 
sigma(4)  =  a23*(wl23**2)*voigt0/(8.0*pi) 
sigma(5)  =  a22*(wl22**2)*voigt0/(8.0*pi) 
sigma(6)  =  a21*(wl21**2)*voigt0/(8.0*pi) 
c 

c  calculate  noise-term  constant  Q 
c 

sn  =  snfudg*(c/(2*cavlen))’''(c*hnui*ganlen/(area*cavlen)) 
sn34  =  sn*sigma(l) 
sn33  =  sn*sigma(2) 
sn32  =  sn*sigma(3) 
sn23  =  sn*sigma(4) 
sn22  =  sn*sigma(5) 
sn21  =  sn*sigma(6) 
c 

c  calculate  the  initial  small  signal  gain: 
c 


ssg(l)  =  sigma(l)*(y(l)-(7.0/9.0)*y(3)) 
ssg(2) =sigma(2)*(y(l)-y(4)) 
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ssg(3)=sigma(3)’*'(y(l)-(7.0/5.0)*y(5)) 
ssg(4)=sigma(4)*(y(2)-(5.0/7.0)*y(4)) 
ssg(5) = sigma(5)  *(y(2)-y  (5)) 
ssg(6)=sigma(6)*(y(2)-(5.0/3.0)*y(6)) 
c 

c  required  parameters  for  integrator 
c 

neq  =  nsize 

Irw  =  22+9*nsize+nsize*nsize 
liw  =  20+nsize 
mf  =  21 
do  101  i=l,lrw 
rwork(i)  =  0.0 

101  continue 

do  102  i  =  l,liw 
iwork(i)  =  0 

102  continue 
itol  =  1 

rtol  =  15.d-15 
atol  =  15.d-14 
itask  =  1 
istate  =  1 
iopt  =1 
iwork(6)  =  1000 
c 

c  write  initial  values  out  to  an  array 
c 

datar(l,l)  =  sngl(t) 
datar(l,2)  =  sngl(yp(l)) 
do  151  nout  =  1, nsize 
datar(l,nout+2)  =  sngl(y(nout)) 

151  continue 

datar(l,nsize+3)  =  sngl(pump’^hnu248*volext) 
do  152  nout  =  l,lsize 

datar(  1,  nout + nsize +3)  =  sngl(ssg(nout)) 

152  continue 
c 

c  begin  do  loop 
c 

do  1000  iout  =  2,isize 
c 

call  dlsode(fex, neq, y,t, tout, itol, rtol, atol, itask, istate, 
1  iopt,rwork,lrw,iwork,liw,jex,mf) 

c 

c  integrate  excimer  pump  term  over  time  interval 
c 
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exmr  =  exmr  +  pump*deltat 
c 

c  calculate  outcoupled  power  and 

c  integrate  outcoupled  power  to  get  extracted  energy 

c 

do  201  i  =  l,lsize 
yp(i)  =  y(6+i)*area*omega 
extrac(i)  =  extrac(i)  +  yp(i)*deltat 
ssgold(i)=ssg(i) 

201  continue 
c 

c  calculate  the  cavity  build-up  time 
c 

if  (yp(l).gt.  1000.0)  then 
before=10.0 
endif 

if  (before.lt.  1.0)  then 
tau  =  tau  +  deltat 
endif 
c 

c  write  calculated  values  out  to  an  array 
c 

datar(iout,l)  =  sngl(t) 
datar(iout,2)  =  sngl(yp(l)) 
do  251  nout  =  l,nsize 
datar(iout,nout-f2)  =  sngl(y(nout)) 

251  continue 

datar(iout,nsize+3)  =  sngl(pump*hnu248*volext) 
do  252  nout  =  l,lsize 
datar(iout,  nout -Hnsize -1-3)  =  sngl(ssg(nout)) 

252  continue 
c 

c  check  for  error  in  odepack: 
c 

if  (istate  .It.  0)  go  to  1001 
c 

c  calculate  pump  term 
c 

pump  =  dexp(-(4.0’^dlog(0.2d-l-01)*((t-100.0d-9)**2)/ 
1  (pdelt**2)))*pwr*pnorm 

if  (pump.lt.  1.0)  then 
pump  =  0.0 
endif 
c 

c  calculate  the  small  signal  gain: 
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ssg(l)  =sigma(l)*(y(l)-(7.0/9.0)*y(3)) 
ssg(2) =sigma(2)*^(l)-y(4)) 
ssgO) = sigma(3)  *(y  ( 1  )-(7. 0/5. 0)*y  (5)) 
ssg(4) = sigma(4)  *(y(2)-(5 . 0/7.0)  *y  (4)) 
ssg(5) =sigma(5)*(y(2)-y(5)) 
ssg(6) = sigma(6)  *(y(2)-(5 . 0/3 . 0)*y(6)) 
do  301  i=l,lsize 
if  (ssgold(i).gt.ssg(i))  then 
ssgmax(i)  =  ssgold(i) 
endif 

301  continue 
c 

c  this  increments  the  time  by  deltat 
c 

tout  =  tout + deltat 
c 

1000  continue 
c 

c  end  of  do  loop 
c 

c 

c  This  writes  the  data  array  out  to  a  binary  file: 
c 

do  351  iout=l,isize 
do  352  jout=l,jsize 
write(8)  datar(iout,jout) 

352  continue 
351  continue 
c 

c  This  writes  the  rest  of  the  parameters  to  the  screen: 
c 

write(9,401)  exmr*hnu248*volext 

401  format(//5x,’excimer  energy  =’,lpel0.2,’ joules’) 
c 

write(9,402)  extrac(l) 

402  format(//5x, ’extracted  energy  =’,lpel0. 2,’ joules’) 
c 

write(9,403)  tau*le9-50.0 

403  format(//5x, ’cavity  build-up  time  =’,lpel0.2,’  nsec’) 
c 

write(9,404)  ssgmax(l) 

404  format(//5x, ’maximum  small  signal  gain  =’,lpel0.2,’  /cm’) 
c 

write(9,405)  iwork(l  l),iwork(12),iwork(13) 

405  format(//5x,’no.  steps  =’,i6,’  no.  f-s  =’,i6,’  no.  j-s  =’,i6) 
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go  to  1002 
c 

1001  write(9,451)  istate 

451  format(//5x, ’fatal  error,  run  aborted  with  istate  =’,i3) 

1002  continue 
c 

c 

stop 

end 


c 

c 

c 

c 

c 


required  subroutine  fex 
subroutine  fex  (neq,  t,  y,  ydot) 
implicit  real*8  (a-h,o-z) 
parameter(nsize  =  16) 
real*8  t,  y,  ydot 
dimension  y(nsize),  ydot(nsize) 

common  /user/  cavlos,sn34,sn33,sn32,sn23,sn22,sn21,fill,hnui, 

1  pump, relax(14),sigma(6), yield, qcf3i,qcf3,qi2,r, 

2  qar,par,temp,a34,a33,a32,a23,a22,a21,ganlen,cavlen, 

3  recf3,dc2f6,di2,dcf3i,dar 


c 

*******:>=:!,**  upper  level  population  density  rate  equations  *********** 
c 

c  level  3  population  density 
c 


ydot(l)  =  (7.0/12.0)*yield*pump 

1  -  (sigma(l)*(y(l)-(7.0/9.0)*y(3))*y(7))/hnui 

2  -  (sigma(2)‘^(y(l)-y(4))*y(8))/hnui 

3  -  (sigma(3)'^(y(l)-(7.0/5.0)’^y(5))*y(9))/hnui 

4  -  y(l)*(a34+a33+a32) 

5  +  (relax(l)*y(2)-relax(2)’^y(l))*(y(3)+y(4)+y(5)+y(6)) 

6  -  (qcf3i*y(13)+qcf3*y(14)+qi2’^y(15)+r*qar*par/temp)*y(l) 
c 

c  level  2  population  density 


ydot(2)  =  (5.0/12.0)*yield*pump 

1  -  (sigma(4)*(y(2)-(5.0/7.0)*y(4))*y(10))/hnui 

2  -  (sigma(5)=^(y(2)-y(5))-^y(ll))/hnui 

3  -  (sigma(6)’^(y(2)-(5.0/3.0)*y(6))»y(12))/hnui 

4  -  y(2)*(a23+a22+a21) 

5  +  (relax(2)’^y(l)-relax(l)=^y(2))*(y(3)+y(4)+y(5)+y(6)) 

6  -  (qcf3i*y(13)+qcf3*y(14)+qi2*y(15)+r*qar’^par/temp)*y(2) 
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c 


c 


Q  ******:tf*!^:tf  lower  level  population  density  rate  equations  ************ 
c 


c  level  4  population  density 
c 

ydot(3)  =  (9.0/24.0)*(1.0-yield)*pump 

1  +  (sigma(l)*(y(l)-(7.0/9.0)*y(3))*y(7))/hnui 

2  +  y(l)*a34 

3  +  (relax(14)’'‘y(4)+relax(13)*y(5)+relax(ll)*y(6) 

4  -  (relax(3)+relax(4)+relax(5))*y(3)) 

5  *  (r*par/temp+y(13)+y(14)+y(15)+y(16)) 

5  +  (9.0/24.0)*(qcf3i*y(13)+qcf3’'‘y(14)+qi2*y(15)+r’'‘qar*par/temp) 

6  *  (y(l)+y(2))  -  recf3*y(14)*y(3) 

7  -  (dar*r’''parAemp+dcf3i*y(13)+di2*y(15))*y(3)**2 
c 

c  level  3  population  density 


ydot(4)  =  (7.0/24. 0)*(1.0-yield)*pump 

1  +  (sigma(2)*(y(l)-y(4))*y(8))/hnui 

2  +  (sigma(4)*(y(2)-(5.0/7.0)’'y(4))*y(10))/hnui 

3  +  y(l)*a33  +  y(2)*a23 

4  +  (relax(3)*y(3)+relax(12)’^y(5)+relax(10)*y(6) 

5  -  (relax(14)+relax(6)+relax(7))*y(4)) 

5  *  (r*par/temp+y(13)+y(14)+y(15)+y(16)) 

6  +  (7.0/24.0)’'‘(qcf3i*y(13)+qcf3*y(14)+qi2*y(15)+r*qar*par/temp) 

6  *  (y(l)+y(2))  -  recf3*y(14)*y(4) 

7  -  (dar*r*par/temp+dcf3i*y(13)+di2*y(15))*y(4)**2 


c  level  2  population  density 
c 


ydot(5)  =  (5.0/24.0)*(1.0-yield)*pump 

1  +  (sigma(3)*(y(l)-(7.0/5.0)*y(5))*y(9))/hnui 

2  +  (sigma(5)*(y(2)-y(5))>^y(ll))/hnui 

3  +  y(l)*a32  +  y(2)=^a22 

4  +  (relax(4)*y(3)+relax(6)*y(4)+relax(9)*y(6) 

5  -  (relax(13)+relax(12)+relax(8))*y(5)) 

5  *  (r*par/temp+y(13)+y(14)+y(15)+y(16)) 

6  +  (5.0/24.0)*(qcf3i*y(13)+qcf3*y(14)+qi2*y(15)+r*qar*par/temp) 

6  *  (y(l)+y(2))  -  recf3*y(14)*y(5) 

7  -  (dar*r*par/temp+dcf3i*y(13)4-di2*y(15))*y(5)**2 


c  level  1  population  density 


c 


ydot(6)  =  (3.0/24.0)*(1.0-yield)*pump 
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1  +  (sigma(6)*(y(2)-(5.0/3.0)*y(6))*y(12))/hnui 

2  +  y(2)*a21 

3  +  (relax(5)*y(3)+relax(7)*y(4)+relax(8)*y(5) 

4  -  (relax(ll)+relax(10)+relax(9))*y(6)) 

5  *  (r’'‘par/tenip+y(13)+y(14)+y(15)+y(16)) 

5  +  (3.0/24.0)*(qcf3i*y(13)+qcf3*y(14)+qi2*y(15)+r*qar*par/temp) 

6  *  (y(l)+y(2))  -  recf3*y(14)*y(6) 

7  -  (dar*r*par/temp+dcOi*y(13)+di2*y(15))*y(6)**2 
c 

c 

g  «:ic**««**Hc«*  two-way  circulating  intensity  rate  equations  ♦*♦***♦***♦* 
c 

c  3-4  transition 

c 

ydot(7)  =  sigma(l)*(y(l)-(7.0/9.0)*y(3))*fill*y(7) 

1  -  cavlos*y(7)  +  2*sn34*(ganlen/cavlen)*y(l) 

c 

c  3-3  transition 

c 

ydot(8)  =  sigma(2)*(y(l)-y(4))*fill“^y(8) 

1  -  cavlos*y(8)  +  2*sn33*(ganlen/cavlen)*y(l) 

c 

c  3-2  transition 

c 

ydot(9)  =  sigma(3)*(y(l)-(7.0/5.0)=*=y(5))*fill*y(9) 

1  -  cavlos*y(9)  +  2*sn32*(ganlen/cavlen)*y(l) 

c 

c  2-3  transition 

c 

ydot(lO)  =  sigma(4)*(y(2)-(5.0/7.0)*y(4))*fill*y(10) 

1  -  cavlos*y(10)  +  2*sn23*(ganlen/cavlen)*y(2) 

c 

c  2-2  transition 

c 

ydot(ll)  =  sigma(5)*(y(2)-y(5))*fill*y(ll) 

1  -  cavlos*y(ll)  -1-  2*sn22*(ganlen/cavlen)*y(2) 

c 

c  2-1  transition 

c 

ydot(12)  =  sigma(6)*(y(2)-(5.0/3.0)*y(6))*fill*y(12) 

1  -  cavlos*y(12)  -I-  2*sn21*(ganlen/cavlen)*y(2) 

c 

Q  ************************************************ ***j(c******j|{}|c***:je*jje*** 

c 

c  cf3i  population  density 
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c 

ydot(13)  =  recf3*y(14)*(y(3)+y(4)+y(5)+y(6))  -  pump 
c 

c  cf3  population  density 
c 

ydot(14)  =  pump  -  recD*y(14)*(y(3)+y(4)+y(5)+y(6)) 

1  -  dc2f6*y(14)**2 

c 

c  i2  population  density 
c 

ydot(15)  =  (dcf3i*y(13)+dar*r*par/temp+di2*y(15)) 

1  *(y(3)+y(4)+y(5)+y(6))**2 

c 

c  c2f6  population  density 
c 

ydot(16)  =  dc2f6*y(14)**2 
c 
c 

c 

return 
end 
e  ■ 
c 

c 

c  dummy  subroutine  for  Jacobian  array 
c 

subroutine  jex  (neq,  t,  y,  ml,  mu,  pd,  nrpd) 
implicit  real*8  (a-h,o-z) 
parameter(nsize  =  16) 
real*8  t,  y,  pd 

dimension  y(nsize),  pd(nrpd,nsize) 

common  /user/  cavlos,sn34,sn33,sn32,sn23,sn22,sn21,fill,hnui, 

1  pump,relax(14),sigma(6),yield,qcf3i,qcf3,qi2,r, 

2  qar,par,temp,a34,a33,a32,a23,a22,a21,ganlen,cavlen, 

3  recf3,dc2f6,di2,dcf3i,dar 
c 

c  Jacobian  matrix: 
c 

pd(l,l)  =  -  (sigma(l)*y(7))/hnui 

1  -  (sigma(2)*y(8))/hnui 

2  -  (sigma(3)*y(9)yhnui 

3  -  (a34+a33+a32) 

4  -  relax(2)*(y(3)+y(4)+y(5)+y(6)) 

5  -  (qcf3i*y(13)+qcf3*y(14)+qi2*y(15)+r*qar*par/temp) 
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pd(l,2)  =  +  relax(l)*(y(3)+y(4)+y(5)+y(6)) 
pd(l,3)  =  (sigma(l)*(7.0/9.0)*y(7))/hnui 
1  +  (relax(l)*y(2)-relax(2)*y(l)) 

pd(l,4)  =  (sigma(2)*y(8))/hnui 
1  +  (relax(l)*y(2)-relax(2)*y(l)) 

pd(l,5)  =  (sigma(3)*(7.0/5.0)*y(9))/hnui 
1  +  (re]ax(l)*y(2)-relax(2)*y(l)) 

pd(l,6)  =  (relax(l)*y(2)-relax(2)*y(l)) 
pd(l,7)  =  -  sigma(l)*(y(lH7.0/9.0)*y(3))/hnui 
pd(l,8)  =  -  sigma(2)*(y(l)-y(4))/hnui 
pd(l,9)  =  -  sigma(3)*(y(l)-(7,0/5.0)*y(5))/hnui 
pd(l,10)  =  0.0 
pd(l,ll)  =  0.0 
pd(l,12)  =  0.0 
pd(l,13)  =  -  qcf3i*y(l) 
pd(l,14)  =  -  qcf3*y(l) 
pd(l,15)  =  -  qi2*y(l) 
pd(l,16)  =  0.0 

pd(2,l)  =  +  relax(2)*(y(3)+y(4)+y(5)+y(6)) 
pd(2,2)  =  -  (sigma(4)*y(10))/hnui 

1  -  (sigma(5)*y(ll))/hnui 

2  -  (sigma(6)*y(12))/hnui 

3  -  (a23+a22+a21) 

4  -  relax(l)*(y(3)+y(4)4-y(5)+y(6)) 

5  -  (qcOi*y(13)+qcf3*y(14)+qi2*y(15)+r*qar*par/temp) 

pd(2,3)  =  (relax(2)*y(l)-relax(l)*y(2)) 

pd(2,4)  =  (sigma(4)*(5.0/7.0)*y(10))/hnui 
1  +  (relax(2)*y(l)-relax(l)»y(2)) 

pd(2,5)  =  (sigma(5)*y(ll))/hnui 
1  +  (relax(2)*y(l)-relax(l)*y(2)) 

pd(2,6)  =  (sigma(6)*(5.0/3.0)*y(12))/hnui 
1  +  (relax(2)*y(l)-relax(l)*y(2)) 

pd(2,7)  =  0.0 
pd(2,8)  =  0.0 
pd(2,9)  =  0.0 

pd(2,10)  =  -  (sigma(4)-*=(y(2)-(5.0/7.0)*y(4)))/hnui 

pd(2,ll)  =  -  (sigma(5)=^(y(2)-y(5)))/hnui 

pd(2,12)  =  -  (sigma(6)*(y(2)-(5.0/3.0)*y(6)))/hnui 

pd(2,13)  =  -  qcf3i*y(2) 

pd(2,14)  =  -  qcD*y(2) 

pd(2,15)  =  -  qi2=*'y(2) 

pd(2,16)  =  0.0 

pd(3,l)  =  +  (sigma(l)*y(7))/hnui 
1  +  a34 
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2  +  (9.0/24.0)*(qcf3i*y(13)+qcf3*y(14)+qi2*y(15) 

3  +  r*qar*par/temp) 

pd(3,2)  =  +  (9.0/24.0)*(qcf3i*y(13)+qcf3*y(14)+qi2*y(15) 

1  +  r*qar*par/temp) 

pd(3,3)  =  -  (sigma(l)*(7.0/9.0)*y(7))/hnui 

1  -  (relax(3)+relax(4)+relax(5)) 

5  *  (r*par/temp+y(13)+y(14)+y(15)+y(16)) 

2  -  recf3*y(14) 

3  -  (dar*r*par/temp+dcf3i*y(13)+di2*y(15))*y(3)*2.0 
pd(3,4)  =  relax(14)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 
pd(3,5)  =  relax(13)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 
pd(3,6)  =  relax(ll)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 
pd(3,7)  =  +  (sigma(l)*(y(l)-(7.0/9.0)*y(3)))/hnui 

pd(3,8)  =  0.0 
pd(3,9)  =  0.0 
pd(3,10)  =  0.0 
pd(3,ll)  =  0.0 
pd(3,12)  =  0.0 

pd(3,13)  =  +  (relax(14)*y(4)+relax(13)*y(5)+relax(ll)*y(6) 

1  -  (relax(3)+relax(4)+relax(5))*y(3)) 

2  +  (9.0/24.0)*qcf3i*(y(l)+y(2))  -  dcf3i*y(3)**2 
pd(3,14)  =  +  (relax(14)*y(4)+relax(13)*y(5)+relax(ll)*y(6) 

1  -  (relax(3)+relax(4)+relax(5))*y(3)) 

2  +  (9.0/24.0)’^qcO*(y(l)+y(2))  -  recD*y(3) 
pd(3,15)  =  +  (relax(14)*y(4)+relax(13)’''y(5)+relax(ll)*y(6) 

1  -  (relax(3)+relax(4)+relax(5))*y(3)) 

2  +  (9,0/24.0)*qi2*(y(l)+y(2))- di2*y(3)**2 

pd(3,16)  =  +  (relax(14)*y(4)+relax(13)*y(5)+relax(ll)*y(6) 
1  -  (relax(3)+relax(4)+relax(5))*y(3)) 

pd(4,l)  =  +  (sigma(2)=^y(8))/hnui 

1  +  a33 

2  +  (7.0/24.0)*(qcDi*y(13)+qcf3*y(14)+qi2*y(15) 

3  +  r*qar*par/temp) 

pd(4,2)  =  +  (sigma(4)*y(10))/hnui 

1  +  a23 

2  +  (7.0/24.0)*(qcf3i*y(13)+qcD*y(14)+qi2*y(15) 

3  +  r*qar*par/temp) 

pd(4,3)  =  relax(3)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 
pd(4,4)  =  -  (sigma(2)*y(8))/hnui 

1  -  (sigma(4)’^(5.0/7.0)*y(10))/hnui 

2  -  (relax  ( 1 4) + relax  (6) + relax  (7)) 

5  *  (r*par/temp+y(13)+y(14)+y(15)+y(16)) 

2  -  recf3*y(14) 

3  -  (dar*r*parAenip+dcDi*y(13)+di2*y(15))*y(4)*2.0 

pd(4,5)  =  relax(12)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 


203 


cN  in  cs  cn 


pd(4,6)  =  relax(10)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 
pd(4,7)  =  0.0 

pd(4,8)  =  +  (sigma(2)*(y(l)-y(4)))/hnui 
pd(4,9)  =  0.0 

pd(4,10)  =  +  (signia(4)*(y(2)-(5.0/7.0)*y(4)))/hnui 
pd(4,ll)  =  0.0 
pd(4,12)  =  0.0 

pd(4,13)  =  +  (relax(3)*y(3)+relax(12)*y(5)+relax(10)*y(6) 

1  -  (relax(  14) + relax(6) + relax (7))  *y(4)) 

2  +  (7.0/24.0)*qcf3i*(y(l)+y(2))  -  dcf3i*y(4)**2 
pd(4,14)  =  +  (relax(3)*y(3)+relax(12)*y(5)+relax(10)*y(6) 

1  -  (relax(14)+relax(6)4-relax(7))*y(4)) 

2  +  (7.0/24.0)*qcf3*(y(l)+y(2))  -  recf3*y(4) 
pd(4,15)  =  +  (relax(3)»y(3)+relax(12)=^y(5)+relax(10)*y(6) 

1  -  (relax  (14)+ relax  (6) + relax  (7))  *y (4)) 

2  +  (7.0/24.0)’^qi2*(y(l)+y(2))- di2*y(4)**2 
pd(4,16)  =  +  (relax(3)*y(3)+relax(12)*y(5)+relax(10)*y(6) 

1  -  (relax(14)+relax(6)+relax(7))*y(4)) 

pd(5,l)  =  +  (sigma(3)*y(9))/hnui 

1  +  a32 

2  +  (5.0/24.0)*(qcf3i*y(13)+qcf3*y(14)+qi2*y(15) 

3  +  r*qar*par/temp) 

pd(5,2)  =  +  (sigma(5)*y(ll))/hnui 

1  +  a22 

2  +  (5.0/24.0)*(qcOi*y(13)+qcf3*y(14)+qi2*y(15) 

3  +  r*qar*par/temp) 

pd(5,3)  =  relax(4)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 
pd(5.4)  =  relax(6)*(r*par/tenip+y(13)+y(14)+y(15)+y(16)) 
pd(5,5)  =  -  (sigma(3)’^(7.0/5.0)*y(9))/hnui 
1  -  (sigma(5)*y(ll))/hnui 

-  (relax(13)+relax(12)+relax(8)) 

*  (r*par/temp+y(13)+y(14)+y(15)+y(16)) 

-  recf3*y(14) 

-  (dar*r*par/temp + dcf3i*y(l 3) + di2*y(15)) *y(5) *2.0 
pd(5,6)  =  relax(9)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 
pd(5,7)  =  0.0 

pd(5,8)  =  0.0 

pd(5,9)  =  +  (sigma(3)*(y(l)-(7.0/5.0)*y(5)))/hnui 
pd(5,10)  =  0.0 

pd(5,ll)  =  +  (sigma(5)*(y(2)-y(5)))/hnui 
pd(5,12)  =  0.0 

pd(5,13)  =  +  (relax(4)*y(3)+relax(6)*y(4)+relax(9)*y(6) 

1  -  (relax(13)+relax(12)+relax(8))*y(5)) 

2  +  (5.0/24.0)*qcf3i*(y(l)+y(2))- dcf3i*y(5)**2 
pd(5,14)  =  +  (relax(4)*y(3)+relax(6)*y(4)+relax(9)*y(6) 
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1  -  (relax(13)+relax(12)+relax(8))*y(5)) 

2  +  (5.0/24.0)*qcf3*(y(l)+y(2))-recf3*y(5) 
pd(5,15)  =  +  (relax(4)*y(3)+relax(6)*y(4)+relax(9)*y(6) 

1  -  (relax(13)+relax(12)+relax(8))*y(5)) 

2  +  (5.0/24.0)*qi2*(y(l)+y(2))  -  di2*y(5)**2 
pd(5,16)  =  +  (relax(4)*y(3)+relax(6)*y(4)+relax(9)*y(6) 

1  -  (relax(13)+relax(12)+relax(8))*y(5)) 

pd(6,l)  =  +  (3.0/24.0)*(qcf3i*y(13)+qcf3*y(14)+qi2»y(15) 
1  +  r*qar*par/temp) 

pd(6,2)  =  +  (sigma(6)*y(12))/hnui 

1  +  a21 

2  +  (3.0/24.0)*(qcDi*y(13)+qcD*y(14)+qi2*y(15) 

3  +  r*qar*par/temp) 

pd(6,3)  =  relax(5)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 
pd(6,4)  =  relax(7)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 
pd(6,5)  =  relax(8)*(r*par/temp+y(13)+y(14)+y(15)+y(16)) 
pd(6,6)  =  -  (sigma(6)*(5.0/3.0)*y(12))/hnui 

1  -  (relax(ll)+relax(10)+relax(9)) 

5  *  (r*par/temp+y(13)+y(14)+y(15)+y(16)) 

2  -  recf3*y(14) 

3  -  (dar*r*par/temp+dcOi*y(13)+di2*y(15'')*y(6)*2.0 

pd(6,7)  =  0.0 

pd(6,8)  =  0.0 
pd(6,9)  =  0.0 
pd(6,10)  =  0.0 
pd(6,ll)  =  0.0 

pd(6,12)  =  +  (sigma(6)*(y(2)-(5.0/3.0)*y(6)))/hnui 
pd(6,13)  =  +  (relax(5)*y(3)+relax(7)*y(4)+relax(8)*y(5) 

1  -  (relax(ll)+relax(10)+relax(9))’^y(6)) 

2  +  (3.0/24.0)*qcf3i*(y(l)+y(2))  -  dcf3i*y(6)**2 
pd(6,14)  =  +  (relax(5)*y(3)+relax(7)*y(4)+relax(8)*y(5) 

1  -  (relax(ll)+relax(10)+relax(9))*y(6)) 

2  +  (3.0/24.0)*qcf3*(y(l)+y(2))  -  recf3=^y(6) 
pd(6,15)  =  +  (relax(5)*y(3)+relax(7)*y(4)+relax(8)*y(5) 

1  -  (relax(ll)+relax(10)+relax(9))*y(6)) 

2  +  (3.0/24.0)’^qi2*(y(l)+y(2))- di2*y(6)**2 
pd(6,16)  =  +  (relax(5)*y(3)+relax(7)*y(4)+relax(8)*y(5) 

1  -  (relax(ll)+relax(10)+relax(9))*y(6)) 

pd(7,l)  =  sigma(l)*fill*y(7)  +  2.0*sn34*(ganlen/cavlen) 
pd(7,2)  =  0.0 

pd(7,3)  =  -  sigma(l)*(7.0/9.0)*fill*y(7) 
pd(7,4)  =  0.0 
pd(7,5)  =  0.0 
pd(7,6)  =  0.0 


205 


pd(7,7)  =  sigma(l)*(y(l)-(7.0/9.0)*y(3))*fill-  cavlos 

pd(7,8)  =  0.0 

pd(7,9)  =  0.0 

pd(7,10)  =  0.0 

pd(7,ll)  =  0.0 

pd(7,12)  =  0.0 

pd(7,13)  =  0.0 

pd(7,14)  =  0.0 

pd(7,15)  =  0.0 

pd(7,16)  =  0.0 

pd(8,l)  =  sigma(2)*fill*y(8)  +  2.0*sn33*(ganlen/cavlen) 
pd(8,2)  =  0.0 
pd(8,3)  =  0.0 

pd(8,4)  =  -  sigma(2)*fill*y(8) 
pd(8,5)  =  0.0 
pd(8,6)  =  0.0 
pd(8,7)  =  0.0 

pd(8,8)  =  sigma(2)*(y(l)-y(4))*fill  -  cavlos 

pd(8,9)  =  0.0 

pd(8,10)  =  0.0 

pd(8,ll)  =  0.0 

pd(8,12)  =  0.0 

pd(8,13)  =  0.0 

pd(8,14)  =  0.0 

pd(8,15)  =  0.0 

pd(8,16)  =  0.0 

pd(9,l)  =  sigma(3)*fill*y(9)  +  2.0*sn32*(ganlen/cavlen) 
pd(9,2)  =  0.0 
pd(9,3)  =  0.0 
pd(9,4)  =  0.0 

pd(9,5)  =  -  sigma(3)*(7.0/5.0)*fill*y(9) 
pd(9,6)  =  0.0 
pd(9,7)  =  0.0 
pd(9,8)  =  0.0 

pd(9,9)  =  sigma(3)*(y(l)-(7.0/5.0)*y(5))*fill-  cavlos 

pd(9,10)  =  0.0 

pd(9,ll)  =  0.0 

pd(9,12)  =  0.0 

pd(9,13)  =  0.0 

pd(9,14)  =  0.0 

pd(9,15)  =  0.0 

pd(9,16)  =  0.0 


pd(10,l)  =  0.0 


pd(10,2)  =  sigma(4)*fill*y(10)  +  2.0*sn23*(ganlen/cavlen) 
pd(10,3)  =  0.0 

pd(10,4)  =  -  sigma(4)*(5.0/7.0)*fill*y(10) 

pd(10,5)  =  0.0 

pd(10,6)  =  0.0 

pd(10,7)  =  0.0 

pd(10,8)  =  0.0 

pd(10,9)  =  0.0 

pd(10,10)  =  sigma(4)*(y(2)-(5.0/7.0)*y(4))*fill-cavlos 

pd(10,ll)  =  0.0 

pd(10,12)  =  0.0 

pd(10,13)  =  0.0 

pd(10,14)  =  0.0 

pd(10,15)  =  0.0 

pd(10,16)  =  0.0 
pd(ll,l)  =  0.0 

pd(ll,2)  =  sigma(5)*fill*y(ll)  +  2*sn22*(ganlen/cavlen) 
pd(ll,3)  =  0.0 
pd(ll,4)  =  0.0 

pd(ll,5)  =  -  sigma(5)*fill*y(ll) 

pd(ll,6)  =  0.0 

pd(ll,7)  =  0.0 

pd(ll,8)  =  0.0 

pd(ll,9)  =  0.0 

pd(ll,10)  =  0.0 

pd(ll,ll)  =  sigma(5)*(y(2)-y(5))*fill  -  cavlos 

pd(ll,12)  =  0.0 

pd(ll,13)  =  0.0 

pd(ll,14)  =  0.0 

pd(ll,15)  =  0.0 

pd(ll,16)  =  0.0 

pd(12,l)  =  0.0 

pd(12,2)  =  sigma(6)*filPy(12)  +  2.0*sn21*(ganlen/cavlen) 
pd(12,3)  =  0.0 
pd(12,4)  =  0.0 
pd(12,5)  =  0.0 

pd(12,6)  =  -  sigma(6)*(5.0/3.0)*fill*y(12) 

pd(12,7)  =  0.0 

pd(12,8)  =  0.0 

pd(12,9)  =  0.0 

pd(12,10)  =  0.0 

pd(12,ll)  =  0.0 

pd(12,12)  =  sigma(6)*(y(2)-(5.0/3.0)*y(6))*fill- cavlos 
pd(12,13)  =  0.0 
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pd(12,14)  =  0.0 
pd(12,15)  =  0.0 
pd(12,16)  =  0.0 

pd(13,l)  =  0.0 
pd(13,2)  =  0.0 
pd(13,3)  =  recf3*y(14) 
pd(13,4)  =  recf3*y(14) 
pd(13,5)  =  recf3*y(14) 
pd(13,6)  =  recf3*y(14) 
pd(13,7)  =  0.0 
pd(13,8)  =  0.0 
pd(13,9)  =  0.0 
pd(13,10)  =  0.0 
pd(13,ll)  =  0.0 
pd(13,12)  =  0.0 
pd(13,13)  =  0.0 

pd(13,14)  =  recf3*(y(3)+y(4)+y(5)+y(6)) 
pd(13,15)  =  0.0 
pd(13,16)  =  0.0 

pd(14,l)  =  0.0 
pd(14,2)  =  0.0 
pd(14,3)  =  -  recf3*y(14) 
pd(14,4)  =  -  recf3*y(14) 
pd(14,5)  =  -  recf3*y(14) 
pd(14,6)  =  -  recf3*y(14) 
pd(14,7)  =  0.0 
pd(14,8)  =  0.0 
pd(14,9)  =  0.0 
pd(14,10)  =  0.0 
pd(14,ll)  =  0.0 
pd(14,12)  =  0.0 
pd(14,13)  =  0.0 

pd(14,14)  =  -  recf3*(y(3)+y(4)+y(5)+y(6))  -  dc2f6M14)-^2.0 
pd(14,15)  =  0.0 
pd(14,16)  =  0.0 

pd(15,l)  =  0.0 
pd(15,2)  =  0.0 

pd(15,3)  =  (dcf3i*y(13)+dar*r*par/temp+di2*y(15)) 

1  *y(3)*(y(3) +y(4) +y(5)  +y(6))*2.0 

pd(15,4)  =  (dcf3i="y(13)+dar*r’^par/temp+di2*y(15)) 

I  *y(4)*(y(3)+y(4)+y(5)+y(6))*2.0 
pd(15,5)  =  (dcf3i*y(13)+dar*r*par/temp+di2*y(15)) 

I  *y(5)*(y(3) +y(4) +y(5) +y(6))’^2.0 
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pd(15,6)  =  (dcf3i*y(13)+dar*r*par/temp+di2*y(15)) 

1  *y(6)*(y(3) + y(4) +y(5) +y(6))*2.0 

pd(15,7)  =  0.0 

pd(15,8)  =  0.0 

pd(15,9)  =  0.0 

pd(15,10)  =  0.0 

pd(15,ll)  =  0.0 

pd(15,12)  =  0.0 

pd(15,13)  =  dcf3i*(y(3)+y(4)+y(5)+y(6))**2 
pd(15,14)  =  0.0 

pd(15,15)  =  di2*(y(3)+y(4)+y(5)+y(6))**2 
pd(15,16)  =  0.0 
c 

pd(16,l)  =  0.0 

pd(16,2)  =  0.0 
pd(16,3)  =  0.0 
pd(16,4)  =  0.0 
pd(16,5)  =  0.0 
pd(16,6)  =  0.0 
pd(16,7)  =  0.0 
pd(16,8)  =  0.0 
pd(16,9)  =  0.0 
pd(16,10)  =  0.0 
pd(16,ll)  =  0.0 
pd(16,12)  =  0.0 
pd(16,13)  =  0.0 
pd(16,14)  =  dc2f6*y(14)*2.0 
pd(16,15)  =  0.0 
pd(16,16)  =  0.0 
c 

return 

end 

c 

C 

subroutine  erf(x,y,rim,re) 
c 

c  this  program  computes  the  error  function  for  complex  values  of  the 
c  argument,  it  computes  the  function 
c  exp(-z**2)*erfc(-i*z) 

c  where  z  =  x  +  i*y 

c  if  z  =  i*a  -  del,  where  a  =  sqrt(alog(2))*wlomz/wdopp 
c  and  del  =  2*sqrt(alog2)*(nu  -  nu0)/wdopp,  then  re  is  the  line 
c  shape  function 
c 
c 
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C - 

c 

integer  capn,nu,n,npl 
real*8  x,y,re,rim 

real*8  h,h2,rlmbda,rl,r2,sl,s2,tl,t2,c,s 
logical  b,sign 
cst=  1.12837916709551 
sign =.  false. 

c 

c - 

c 

if(x.lt.0.0)  sign =. true. 

c  x=abs(x) 

if(x.lt.0.0)  x=0.0-x 

if(y.lt.4.29.and.x.lt.5.33)  go  to  100 

h=0.0 

capn  =  0 

nu  =  8 

go  to  200 

100  s=(1.0-y/4.29)*sqrt(1.0-x»x/28.41) 
h  =  1.6*s 
h2=2.0*h 
capn=6.5+23*s 
rlmbda=h2**capn 
nu=9.5+21*s 

200  b  =  . false. 

if(h.eq.0. 0.or.rlmbda.eq.0.0)  b  =  .true. 

400  rl  =  0.0 
r2  =  0.0 
si  =  0.0 
s2  =  0.0 
nupl=nu+l 
do  600  nn  =  l,nupl 
n=nu+l-nn 
npl=n+l 
tl=y+h+npl*rl 
t2=x-npl*r2 
c=.5/(tini+t2*t2) 
rl=c*tl 
r2=c*t2 

if(h.gt.0.0.and.n.le.capn)  go  to  500 
go  to  600 

500  tl=rlmbda+sl 
sl=rini-r2*s2 
s2=r2ni+rl*s2 
rlmbda=rlmbda/h2 
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600  continue 
if(b)  go  to  700 
rim=cst*s2 
re=cst*sl 
go  to  800 
700  rim=cst*r2 
re=cst*rl 

800  if(y.eq.0.0)  re=exp(-x*x) 
if(sign)  rim = -rim 
return 
end 


Pulsed  r  16  Equation  Model  I/O  Parameters 


gain  length  = 
cavity  length  = 
uv  pump  energy  = 
i*  yield  — 
pump  pulse  width  = 
output  mirror  reflectivity  = 
internal  loss  = 
iodide  pressure  = 
argon  pressure  = 

upper  level  relaxation  rate  constant  = 
lower  level  relaxation  rate  constant  — 
window  transmission  = 
scattering  losses  = 


2.800  cm. 

16.000  cm. 

0. 175  Joules 
90.000  % 

0.180E-07  secs  fwhrn 
■'■■''0:964'''%^'^^'^'' 

0.000  % 

60.000  torr 
0.000  torr 
1.50E-09cc/s 
0.40E-09  cc/s 
1.000 
0.000 


excimer  energy  deposited  in  gain  region  = 
extracted  energy  = 
cavity  build-up  time- 
maximum  sm^l  signal  gain  = 


3.48E-02  Joules 
3.21E-03  Joules 
3.38E+02  nsec 
2.94E-03  /cm 


no.  steps  =  10094  no.  f-s  =  12873  no.  j-s  =  1860 


Table  B-1  Text  Output  from  I.f 


The  following  codes  produce  plots  in  the  form  of  CGM  files  using  the  NCAR 
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Graphics  library.  The  first  code  listed  is  pulse.f  which  plots  I*  laser  intensity  from  the 
data  file  produced  by  the  previous  code.  An  example  of  the  output  is  plotted  in  Figure 
B-1  just  after  the  code  listing.  The  second  listing  is  dens.f  which  plots  out  the  number 
density  in  each  of  the  hyperfine  levels  from  the  data  file.  An  example  of  this  is  seen  in 
Figure  B-2.  The  third  listing  is  ssg.f  which  plots  out  the  small  signal  gain  from  the  data 
file.  An  example  plot  follows  in  Figure  B-3. 


c 

c  implicit  real*8  (a-h,o-z) 

parameter(isize  =  1500,jsize  =  25,nsize  =  2,lsize  =  6) 
real  datar(isizejsize) 
real  x(jsize) 
common  /user/  scale2 
C 

C  Define  the  data  arrays  and  the  dash-pattern  array. 

C 

REAL  XDRA(isize),YDRA(isize,nsize) 

CHARACTER*28  DSHP(nsize) 

C 

C  Declare  the  type  of  the  dash-pattem-name  generator. 

C 

CHARACTER*  16  AGDSHN 
c 

c  This  opens  the  data  files: 
c 

open  (unit = 8 ,  file = ’  data  ’ ,  form  =  ’  unformatted  ’ ,  status = ’  old  ’ ) 
c 

c  This  reads  the  data  array  from  a  binary  file: 
c 

do  300  iout=l,isize 
do  200  jout= 1  Jsize 
read(8)  datar(iout,jout) 

200  continue 
300  continue 
C 

C  Initialize  GKS. 

C 

CALL  OPNGKS 
c 

c  set  scale  for  I*  pulse 
c 

scale2  =0.3 
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Fill  the  data  arrays  and  the  dash  pattern  array. 

do  101  iout=l,isize 
XDRA(iout)  =  1  .e9*datar(iout,  1) 
YDRA(iout,  1)  =  1  .e-6*datar(iout,  19) 
YDRA(iout,2) = 1  .e-4*datar(iout,2)*scale2 
101  continue 

do  103  jout=l,nsize 
write  (DSHP(jout),1001)  jout 
103  continue 


Turn  on  windowing. 

CALL  AGSETI  (’WINDOWING.’,!) 


Move  the  edges  of  the  curve  window  (grid). 

CALL  AGSETF  (’GRID/LEFT.’  ,.10) 

CALL  AGSETF  (’GRID/RIGHT.’  ,.90) 

CALL  AGSETF  (’GRID/BOTTOM.’,. 10) 
CALL  AGSETF  (’GRID/TOP.’  ,.85) 

Set  the  X  and  y  minimum  and  maximum. 

CALL  AGSETF  (’X/MINIMUM.  ’ ,  0.) 

CALL  AGSETF  (’X/MAXIMUM.’,1500.) 
CALL  AGSETF  (’Y/MINIMUM.’,  -.2) 

CALL  AGSETF  (’Y/MAXIMUM.’,  2.) 

Set  left  axis  parameters. 

CALL  AGSETI  (’LEFT/MAJOR/TYPE. ’,1) 
CALL  AGSETF  (’LEFT/MAJOR/BASE. ’,0.2) 
CALL  AGSETI  (’LEFT/MINOR/SPACING. ’,4) 


Set  right  axis  parameters. 

CALL  AGSETI  (’RIGHT/FUNCTION. ’,1) 

CALL  AGSETF  (’RIGHT/MAJOR/BASE. ’,5.) 

CALL  AGSETI  (’RIGHT/MINOR/SPACING. ’,4) 
CALL  AGSETF  (’RIGHT/NUMERIC/TYPE. ’,1.E36) 


Set  bottom  axis  parameters. 
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CALL  AGSETI  (’BOTTOM/MAJOR/TYPE. ’,1) 

CALL  AGSETF  (’BOTTOM/MAJOR/BASE. ’,100.) 

CALL  AGSETI  (’BOTTOM/MINOR/SPACING. ’,3) 

C 

C  Set  up  the  dash  patterns  to  be  used. 

C 

CALL  AGSETI  (’DASH/SELECTOR. ’,nsize) 

CALL  AGSETI  (’DASH/LENGTH. ’,28) 

DO  104  I=l,nsize 

CALL  AGSETC  (AGDSHN(I),DSHP(I)) 

104  CONTINUE 
C 

C  Set  up  the  left  label. 

C 

CALL  AGSETC  (’LABEL/NAME. ’,’L’) 

CALL  AGSETI  (’LINE/NUMBER. ’,100) 

CALL  AGSETC  (’LINE/TEXT. ’, ’Excimer  Pulse  Energy  (MW)$’) 
C 

C  Set  up  the  right  label. 

C 

CALL  AGSETC  (’LABEL/NAME. ’,’R’) 

CALL  AGSETI  (’LINE/NUMBER. ’,-100) 

CALL  AGSETC  (’LINE/TEXT.’, 

+  ’Iodine  Pulse  Energy  (kW)$’) 

C 

C  Set  up  the  bottom  labels. 

C 

CALL  AGSETC  (’LABEL/NAME. ’,’B’) 

CALL  AGSETI  (’LINE/NUMBER. ’,-100) 

CALL  AGSETC  (’LINE/TEXT.’, ’Time  (ns)$’) 

C 

C  Set  up  the  top  label. 

C 

CALL  AGSETC  (’LABEL/NAME. ’,’T’) 

CALL  AGSETI  (’LINE/NUMBER. ’,80) 

CALL  AGSETC  (’LINE/TEXT.’, 

+  ’1.  Excimer  2.  lodineS’) 

CALL  AGSETI  (’LINE/NUMBER. ’,90) 

CALL  AGSETC  (’LINE/TEXT.’,’  $’) 

CALL  AGSETI  (’LINE/NUMBER. ’,100) 

CALL  AGSETC  (’LINE/TEXT.’, 

+  ’I*  Laser  PulseS’) 

C 

C  Draw  a  boundary  around  the  edge  of  the  plotter  frame. 

C 

CALL  BNDARY 
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c 

C  Draw  the  graph,  using  EZMXY, 

C 

CALL  EZMXY  (XDRA,YDRA,isize,nsize,isize,CHAR(0)) 

C 

C  Close  GKS. 

C 

CALL  CLSGKS 
C 

STOP 

C 

C  Format  for  encode  above. 

C 

1001  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$$$”’,11,””) 

C 

END 

SUBROUTINE  AGUTOL  (IAXS,FUNS,IDMA,VINP,VOTP) 
common  /user/  scale2 
C 

C  Mapping  for  the  right  axis. 

C 

IF  (FUNS.EQ.l.)THEN 
IF  (IDMA.GT.O)  VOTP= 10. *VINP/scale2 
IF  (IDMA.LT.O)  VOTP=scale2*VINP/10. 

C 

C  Mapping  for  the  top  axis. 

C 

ELSE  IF  (FUNS.EQ.2.)  THEN 
IF  (IDMA.GT.O)  VOTP=70.136’^VINP 
IF  (IDMA.LT.O)  VOTP=VINP/70.136 
C 

C  Default  (identity)  mapping. 

C 

ELSE 

VOTP=VINP 
END  IF 
C 

C  Done. 

C 

RETURN 

C 

END 

SUBROUTINE  BNDARY 
C 

C  Routine  to  draw  the  plotter-frame  edge. 

C 
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CALL  PLOTIT  (  0,  0,0) 

CALL  PLOTIT  (32767,  0,1) 

CALL  PLOTIT  (32767,32767,1) 
CALL  PLOTIT  (  0,32767,1) 

CALL  PLOTIT  (  0,  0,1) 

RETURN 
END 


Figure  B-1  Output  from  pulse,  f 


216 


ono  non  ooo  ooo  odd  non 


# 


implicit  real*8  (a-h,o-z) 

parameter(isize  =  ISOOJsize  =  25,nsize  =  6,lsize  =  6) 
real  datar(isize,jsize) 
real  x(jsize) 

Define  the  data  arrays  and  the  dash-pattern  array. 

REAL  XDRA(isize),YDRA(isize,nsize) 
CHARACTER*28  DSHP(nsize) 

Declare  the  type  of  the  dash-pattem-name  generator. 

CHARACTER*  16  AGDSHN 


This  opens  the  data  files: 

openfunit =8,file= ’data’  ,form = ’unformatted’ , status  =  ’old’) 

This  reads  the  data  array  from  a  binary  file: 

do  300  iout=l,isize 
do  200  jout=  Ijsize 
read(8)  datar(iout,jout) 
iOO  continue 
100  continue 


Initialize  GKS. 


CALL  OPNGKS 

Fill  the  data  arrays  and  the  dash  pattern  array. 

do  101  iout=l,isize 
XDRA(iout)  =  1  .e9*datar(iout,  1) 
do  102  jout=l,nsize 
YDR  A  (iou  t  J  out) = datarfiout ,  2  +j  out) 
102  continue 
101  continue 
C 

write  (DSHP(1),1001) 
write  (DSHP(2),1002) 
write  (DSHP(3),  1003) 
write  (DSHP(4),1004) 
write  (DSHP(5),1005) 
write  (DSHP(6),1006) 
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c 

C  Turn  on  windowing. 

C 

CALL  AGSETI  (’WINDOWING.’,!) 

C 

C  Move  the  edges  of  the  curve  window  (grid). 

C 

CALL  AGSETF  (’GRID/LEFT.  ’  , .  10) 

CALL  AGSETF  (’GRID/RIGHT.’  ,.90) 

CALL  AGSETF  (’GRID/BOTTOM.’,.  10) 

CALL  AGSETF  (’GRID/TOP.  ’  , .  85) 

C 

C  Set  the  x  and  y  minimum  and  maximum. 

C 

CALL  AGSETF  (’X/MINIMUM.’,  0.) 

CALL  AGSETF  (’X/MAXIMUM.’,1500.) 

C 

C  Set  left  axis  parameters. 

C 

CALL  AGSETI  (’LEFT/MAJOR/TYPE. ’,1) 

CALL  AGSETF  (’LEFT/MAJOR/BASE. ’,l.e+ 15) 
CALL  AGSETI  (’LEFT/MINOR/SPACING. ’,4) 

C 

C  Set  right  axis  parameters. 

C 

CALL  AGSETI  (’RIGHT/MINOR/SPACING. ’,4) 

C 

C  Set  bottom  axis  parameters. 

C 

CALL  AGSETI  (’BOTTOM/MAJOR/TYPE. ’,1) 
CALL  AGSETF  (’BOTTOM/MAJOR/BASE. ’,100.) 
CALL  AGSETI  (’BOTTOM/MINOR/SPACING. ’,3) 
C 

C  Set  top  axis  parameters. 

C 

CALL  AGSETI  (’TOP/MINOR/SPACING. ’,4) 

C 

C  Set  up  the  dash  patterns  to  be  used. 

C 

CALL  AGSETI  (’DASH/SELECTOR. ’.nsize) 

CALL  AGSETI  (’DASH/LENGTH. ’,28) 

DO  104  I  =  l,nsize 

CALL  AGSETC  (AGDSHN(I),DSHP(I)) 

104  CONTINUE 
C 

C  Set  up  the  left  label. 
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c 


CALL  AGSETC  (’LABEL/NAME. ’,’L’) 

CALL  AGSETI  (’LINE/NUMBER. ’,100) 

CALL  AGSETC  (’LINE/TEXT.’, ’Iodine  Atoms  (#/cc)$’) 


Set  up  the  right  label. 

CALL  AGSETC  (’LABEL/NAME. ’,’R’) 
CALL  AGSETI  (’LINE/NUMBER.’, -100) 
CALL  AGSETC  (’LINE/TEXT.’, 

+  ’  $’) 


Set  up  the  bottom  labels. 

CALL  AGSETC  (’LABEL/NAME. ’,’B’) 
CALL  AGSETI  (’LINE/NUMBER. ’,-100) 
CALL  AGSETC  (’LINE/TEXT. ’, ’Time  (ns)$’) 


Set  up  the  top  label. 

CALL  AGSETC  (’LABEL/NAME. ’,’T’) 
CALL  AGSETI  (’LINE/NUMBER. ’,80) 
CALL  AGSETC  (’LINE/TEXT.’, 

+  ’  $’) 

CALL  AGSETI  (’LINE/NUMBER. ’,90) 
CALL  AGSETC  (’LINE/TEXT.’,’  $’) 
CALL  AGSETI  (’LINE/NUMBER. ’,100) 
CALL  AGSETC  (’LINE/TEXT.’, 

+  ’I*  Laser  Population  DensitiesS’) 


Draw  a  boundary  around  the  edge  of  the  plotter  frame. 

CALL  BNDARY 
Draw  the  graph,  using  EZMXY. 


CALL  EZMXY  (XDRA,YDRA,isize,nsize,isize,CHAR(0)) 


Close  GKS. 

CALL  CLSGKS 
STOP 


Format  for  encode  above. 
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1001  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$”’,’13*’,””) 

1002  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$’”,’12*’,””) 

1003  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$” ’,’I4g’,””) 

1004  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$” ’,’I3g’,””) 

1005  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$’”, ’Kg’, ””) 

1006  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$” ’,’Ilg’,””) 

C 

END 

SUBROUTINE  AGUTOL  (IAXS,FUNS,IDMA,VINP,VOTP) 
C 

C  Mapping  for  the  right  axis. 

C 

IF  (FUNS.EQ.l.)  THEN 
IF  (IDMA.GT.O)  VOTP=ALOG10(20.-VINP) 

IF  (IDMA.LT.O)  VOTP=20.-10.**VINP 
C 

C  Mapping  for  the  top  axis. 

C 

ELSE  IF  (FUNS.EQ.2.)  THEN 
IF  (IDMA.GT.O)  VOTP=70.136*VINP 
IF  (IDMA.LT.O)  VOTP=VINP/70.136 
C 

C  Default  (identity)  mapping. 

C 

ELSE 

VOTP=VINP 
END  IF 
C 

C  Done. 

C 

RETURN 

C 

END 

SUBROUTINE  BNDARY 
C 

C  Routine  to  draw  the  plotter-frame  edge. 

C 

CALL  PLOTIT  (  0,  0,0) 

CALL  PLOTIT  (32767,  0,1) 

CALL  PLOTIT  (32767,32767,1) 

CALL  PLOTIT  (  0,32767,1) 

CALL  PLOTIT  (  0,  0,1) 

RETURN 

END 
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Figure  B-2  Output  from  dens.f 


implicit  real*8  (a-h,o-z) 

parameter(isize  =  ISOOJsize  =  25,nsize  =  6) 

real  datar(isize,jsize) 

real  x(jsize) 
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C  Define  the  data  arrays  and  the  dash-pattern  array. 

C 

REAL  XDRA(isize),YDRA(isize,nsize) 

CHARACTER*28  DSHP(nsize) 

C 

C  Declare  the  type  of  the  dash-pattem-name  generator. 

C 

CHARACTER*  16  AGDSHN 
c 

c  This  opens  the  data  files: 
c 

open(unit = 8,file= ’data’  ,form  =  ’unformatted’ ,  status = ’old’) 
c 

c  This  reads  the  data  array  from  a  binary  file: 
c 

do  300  iout=l,isize 
do  200  jout=  IJsize 
read(8)  datar(iout,jout) 

200  continue 
300  continue 
C 

C  Initialize  GKS. 

C 

CALL  OPNGKS 
C 

C  Fill  the  data  arrays  and  the  dash  pattern  array. 

C 

do  101  iout=l,isize 

XDRA(iout)  =  1  .e9*datar(iout,  1) 
do  102  jout=l,nsize 
YDRA(iout,jout)=datar(iout,19+jout) 

102  continue 
101  continue 
C 

write  (DSHP(1),1001) 
write  (DSHP(2),1002) 
write  (DSHP(3),1003) 
write  (DSHP(4),1004) 
write  (DSHP(5),1005) 
write  (DSHP(6),1006) 

C 

C  Turn  on  windowing. 

C 

CALL  AGSETI  (’WINDOWING.’,!) 

C 

C  Move  the  edges  of  the  curve  window  (grid). 
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c 

CALL  AGSETF  (’GRID/LEFT.  ’  , .  10) 

CALL  AGSETF  (’GRID/RIGHT.’  ,.90) 

CALL  AGSETF  (’GRID/BOTTOM. ’,.10) 

CALL  AGSETF  (’GRID/TOP.  ’  , .  85) 

C 

C  Set  the  x  and  y  minimum  and  maximum. 

C 

-  CALL  AGSETF  (’X/MINIMUM.’,  0.) 

CALL  AGSETF  (’X/MAXIMUM.’,1500.) 

CALL  AGSETF  (’Y/MINIMUM.’,  0.) 

CALL  AGSETF  (’Y/MAXIMUM.’,  .04) 

C 

C  Set  left  axis  parameters. 

C 

CALL  AGSETI  (’LEFT/MAJOR/TYPE. ’,1) 

CALL  AGSETF  (’LEFT/MAJOR/BASE. ’,.005) 
CALL  AGSETI  (’LEFT/MINOR/SPACING. ’,4) 

C 

C  Set  right  axis  parameters. 

C 

CALL  AGSETI  (’RIGHT/MINOR/SPACING. ’,4) 

C 

C  Set  bottom  axis  parameters. 

C 

CALL  AGSETI  (’BOTTOM/MAJOR/TYPE. ’,1) 
CALL  AGSETF  (’BOTTOM/MAJOR/BASE. ’,100.) 
CALL  AGSETI  (’BOTTOM/MINOR/SPACING. ’,3) 
C 

C  Set  top  axis  parameters. 

C 

CALL  AGSETI  (’TOP/MINOR/SPACING. ’,4) 

C 

C  Set  up  the  dash  patterns  to  be  used. 

C 

CALL  AGSETI  (’DASH/SELECTOR. ’,nsize) 

CALL  AGSETI  (’DASH/LENGTH. ’,28) 

DO  104  I=l,nsize 

CALL  AGSETC  (AGDSHN(I),DSHP(I)) 

*  104  CONTINUE 

C 

C  Set  up  the  left  label. 

^  C 

CALL  AGSETC  (’LABEL/NAME. ’,’L’) 

CALL  AGSETI  (’LINE/NUMBER. ’,100) 

CALL  AGSETC  (’LINE/TEXT.’, ’Gain  (l/cm)$’) 
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c 

C  Set  up  the  right  label. 

C 

CALL  AGSETC  (’LABEL/NAME. 

CALL  AGSETI  (’LINE/NUMBER.’, -100) 

CALL  AGSETC  (’LINE/TEXT.’, 

+  ’  $’) 

C 

C  Set  up  the  bottom  labels. 

C 

CALL  AGSETC  (’LABEL/NAME. ’,’B’) 

CALL  AGSETI  (’LINE/NUMBER.’, -100) 

CALL  AGSETC  (’LINE/TEXT.’, ’Time  (ns)$’) 

C 

C  Set  up  the  top  label. 

C 

CALL  AGSETC  (’LABEL/NAME. ’,’T’) 

CALL  AGSETI  (’LINE/NUMBER. ’,80) 

CALL  AGSETC  (’LINE/TEXT.’, 

+  ’  $’) 

CALL  AGSETI  (’LINE/NUMBER. ’,90) 

CALL  AGSETC  (’LINE/TEXT.’,’  $’) 

CALL  AGSETI  (’LINE/NUMBER. ’,100) 

CALL  AGSETC  (’LINE/TEXT.’, 

+  ’I*  Laser  Gain$’) 

C 

C  Draw  a  boundary  around  the  edge  of  the  plotter  frame. 

C 

CALL  BNDARY 
C 

C  Draw  the  graph,  using  EZMXY. 

C 

CALL  EZMXY  (XDRA,YDRA,isize,nsize,isize,CHAR(0)) 
C 

C  Close  GKS. 

C 

CALL  CLSGKS 
C 

STOP 

C 

C  Format  for  encode  above. 

C 

1001  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$”’,’3-4’,””) 

1002  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$’”,’3-3’,””) 

1003  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$’”,’3-2’,””) 

1004  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$’”,’2-3’,””) 
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nno  o  non  non 


1005  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$’”,’2-2’,””) 

1006  FORMAT  (’$$$$$$$$$$$$$$$$$$$$$$$’”,’2-1’,””) 

C 

END 

SUBROUTINE  AGUTOL  (IAXS,FUNS,IDMA,VINP,VOTP) 
C 

C  Mapping  for  the  right  axis. 

C 

IF  (FUNS.EQ.l.)  THEN 
IF  (IDMA.GT.O)  VOTP=ALOG10(20.-VINP) 

IF  (IDMA.LT.O)  VOTP=20.-10.**VINP 
C 

C  Mapping  for  the  top  axis. 

C 

ELSE  IF  (FUNS.EQ.2.)  THEN 
IF  (IDMA.GT.O)  VOTP=70.136’^VINP 
IF  (IDMA.LT.O)  VOTP=VINP/70.136 

Default  (identity)  mapping. 

ELSE 

VOTP=VINP 
END  IF 

Done. 

RETURN 

END 

SUBROUTINE  BNDARY 

Routine  to  draw  the  plotter-frame  edge. 

CALL  PLOTIT  (  0,  0,0) 

CALL  PLOTIT  (32767,  0,1) 

CALL  PLOTIT  (32767,32767,1) 

CALL  PLOTIT  (  0,32767,1) 

CALL  PLOTIT  (  0,  0,1) 

RETURN 
END 
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